diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2014-05-02 09:44:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2014-05-02 09:44:34 +0000 |
| commit | 14ff920dc885636a763d6ab7f256cc9981c24781 (patch) | |
| tree | 13abccdfdee03af4d2dfb430c53f31ba8ddf3fa0 /lisp/gnus/mm-view.el | |
| parent | 4807c7eb90073c60996fe2224c2e9e1c2072624d (diff) | |
| download | emacs-14ff920dc885636a763d6ab7f256cc9981c24781.tar.gz emacs-14ff920dc885636a763d6ab7f256cc9981c24781.tar.bz2 emacs-14ff920dc885636a763d6ab7f256cc9981c24781.zip | |
Gnus: Make gnus-mime-inline-part and gnus-mime-inline-part work similarly
* gnus-art.el (gnus-mime-inline-part): Redisplay a button so as to show
the displaying state of a part.
(gnus-mime-inline-part): Don't insert a newline in the beginning of
a part like gnus-mime-inline-part doesn't; work for XEmacs.
* mm-decode.el (mm-display-part): Don't insert a newline in the top.
(mm-shr): Make undisplayer unbreakable.
* mm-view.el (mm-inline-image-emacs, mm-inline-image-xemacs): Don't
insert excessive newline.
(mm-inline-text-html-render-with-w3m, mm-inline-text)
(mm-insert-inline): Make undisplayer unbreakable.
Diffstat (limited to 'lisp/gnus/mm-view.el')
| -rw-r--r-- | lisp/gnus/mm-view.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 27f772cffa1..2bee260d8f2 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -96,19 +96,19 @@ (- (nth 3 edges) (nth 1 edges))))))) image)) b) - (insert "\n\n") + (insert "\n") (mm-handle-set-undisplayer handle `(lambda () (let ((b ,b) (inhibit-read-only t)) (remove-images b b) - (delete-region b (+ b 2))))))) + (delete-region b (1+ b))))))) (defun mm-inline-image-xemacs (handle) (when (featurep 'xemacs) - (insert "\n\n") - (forward-char -2) + (insert "\n") + (forward-char -1) (let ((annot (make-annotation (mm-get-image handle) nil 'text)) (inhibit-read-only t)) (mm-handle-set-undisplayer @@ -117,7 +117,7 @@ (let ((b ,(point-marker)) (inhibit-read-only t)) (delete-annotation ,annot) - (delete-region (- b 2) b)))) + (delete-region (1- b) b)))) (set-extent-property annot 'mm t) (set-extent-property annot 'duplicable t)))) @@ -217,7 +217,7 @@ handle `(lambda () (let ((inhibit-read-only t)) - (delete-region ,(point-min-marker) + (delete-region ,(copy-marker (point-min) t) ,(point-max-marker))))))))) (defvar mm-w3m-standalone-supports-m17n-p (if (featurep 'mule) 'undecided) @@ -391,7 +391,7 @@ handle `(lambda () (let ((inhibit-read-only t)) - (delete-region ,(point-min-marker) + (delete-region ,(copy-marker (point-min) t) ,(point-max-marker)))))))) (defun mm-insert-inline (handle text) @@ -404,7 +404,7 @@ handle `(lambda () (let ((inhibit-read-only t)) - (delete-region ,(copy-marker b) + (delete-region ,(copy-marker b t) ,(copy-marker (point)))))))) (defun mm-inline-audio (handle) |