[Emacs-diffs] Changes to emacs/lisp/gnus/mm-view.el

[Miles Bader]

Index: emacs/lisp/gnus/mm-view.el
diff -c emacs/lisp/gnus/mm-view.el:1.19 emacs/lisp/gnus/mm-view.el:1.20
*** emacs/lisp/gnus/mm-view.el:1.19     Wed Sep 28 05:26:00 2005
--- emacs/lisp/gnus/mm-view.el  Fri Dec  9 08:57:56 2005
***************
*** 250,268 ****
           (point-min) (point-max)
           (list 'keymap w3m-minor-mode-map
                 ;; Put the mark meaning this part was rendered by emacs-w3m.
!                'mm-inline-text-html-with-w3m t))))
!       (mm-handle-set-undisplayer
!        handle
!        `(lambda ()
!         (let (buffer-read-only)
!           (if (functionp 'remove-specifier)
!               (mapcar (lambda (prop)
!                         (remove-specifier
!                          (face-property 'default prop)
!                          (current-buffer)))
!                       '(background background-pixmap foreground)))
!           (delete-region ,(point-min-marker)
!                          ,(point-max-marker))))))))
  
  (defun mm-links-remove-leading-blank ()
    ;; Delete the annoying three spaces preceding each line of links
--- 250,268 ----
           (point-min) (point-max)
           (list 'keymap w3m-minor-mode-map
                 ;; Put the mark meaning this part was rendered by emacs-w3m.
!                'mm-inline-text-html-with-w3m t)))
!       (mm-handle-set-undisplayer
!        handle
!        `(lambda ()
!           (let (buffer-read-only)
!             (if (functionp 'remove-specifier)
!                 (mapcar (lambda (prop)
!                           (remove-specifier
!                            (face-property 'default prop)
!                            (current-buffer)))
!                         '(background background-pixmap foreground)))
!             (delete-region ,(point-min-marker)
!                            ,(point-max-marker)))))))))
  
  (defun mm-links-remove-leading-blank ()
    ;; Delete the annoying three spaces preceding each line of links