andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't remove undisplayers from inlined MIME parts (bugfix)

Browse source 
* lisp/gnus/gnus-art.el (gnus-mime-buttonize-attachments-in-header):
Don't remove undisplayers from inlined MIME parts (bugfix);
Simplify criterion that finds attachments.
This commit is contained in:
Katsumi Yamaoka 2017-09-01 07:25:38 +00:00
parent c5c9f5d718
commit 356413bbf8
1 changed files with 3 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/gnus/gnus-art.el
View file

@ -6366,7 +6366,7 @@ buttons to be added to the header are only the ones that aren't inlined
in the body. Use `gnus-header-face-alist' to highlight buttons."
(interactive (list t))
(gnus-with-article-buffer
(let ((case-fold-search t) buttons handle type st)
(let ((case-fold-search t) buttons st)
(save-excursion
(save-restriction
(widen)
@ -6387,22 +6387,7 @@ in the body. Use `gnus-header-face-alist' to highlight buttons."
;; Find buttons.
(setq buttons nil)
(dolist (button (gnus-article-mime-handles))
(setq handle (cdr button)
type (mm-handle-media-type handle))
(when (or (and (if (gnus-buffer-live-p gnus-summary-buffer)
(with-current-buffer gnus-summary-buffer
gnus-inhibit-images)
gnus-inhibit-images)
(string-match "\\`image/" type))
(mm-inline-override-p handle)
(and (mm-handle-disposition handle)
(not (equal (car (mm-handle-disposition handle))
"inline"))
(not (mm-attachment-override-p handle)))
(not (mm-automatic-display-p handle))
(not (or (and (mm-inlinable-p handle)
(mm-inlined-p handle))
(mm-automatic-external-display-p type))))
(unless (mm-handle-undisplayer (cdr button))
(push button buttons)))
(when buttons
;; Add header buttons.
@ -6413,8 +6398,7 @@ in the body. Use `gnus-header-face-alist' to highlight buttons."
(dolist (button (nreverse buttons))
(setq st (point))
(insert " ")
(mm-handle-set-undisplayer (setq handle (cdr button)) nil)
(gnus-insert-mime-button handle (car button))
(gnus-insert-mime-button (cdr button) (car button))
(skip-chars-backward "\t\n ")
(delete-region (point) (point-max))
(when (> (current-column) (window-width))