procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Name buffer according to attachment filename (bug#34478).

Browse source 
* lisp/gnus/mm-decode.el (mm-display-external): Name buffer showing
  the attachment according to the attachment's filename, i.e. "*mm*
  <filename>" instead of " *mm*12345".
This commit is contained in:
Tassilo Horn 2019-03-09 21:27:24 +01:00
parent 466466db76
commit 7073db2b64
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/mm-decode.el
View file

@ -890,6 +890,7 @@ external if displayed external."
(when method
(message "Viewing with %s" method))
(let ((mm (current-buffer))
(attachment-filename (mm-handle-filename handle))
(non-viewer (assq 'non-viewer
(mailcap-mime-info
(mm-handle-media-type handle) t))))
@ -899,6 +900,9 @@ external if displayed external."
(when (and (boundp 'gnus-summary-buffer)
(bufferp gnus-summary-buffer)
(buffer-name gnus-summary-buffer))
(when attachment-filename
(with-current-buffer mm
(rename-buffer (format "*mm* %s" attachment-filename) t)))
;; So that we pop back to the right place, sort of.
(switch-to-buffer gnus-summary-buffer)
(switch-to-buffer mm))