Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't try to jump to non-existent part (bug#28013)

Browse source 
* lisp/gnus/gnus-art.el (gnus-article-edit-part): Don't try to jump to
the next part if there is the only one part in the article (bug#28013).
This commit is contained in:
Katsumi Yamaoka 2017-08-08 23:40:27 +00:00
parent 63b5a4a65e
commit 2ef880cc75
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5058,11 +5058,14 @@ and `gnus-mime-delete-part', and not provided at run-time normally."
(gnus-article-edit-done))
(gnus-configure-windows 'article)
(sit-for 0)
(when (and current-id (integerp gnus-auto-select-part))
(gnus-article-jump-to-part
(min (max (+ current-id gnus-auto-select-part) 1)
(with-current-buffer gnus-article-buffer
(length gnus-article-mime-handle-alist)))))))
(let ((handles (with-current-buffer gnus-article-buffer
gnus-article-mime-handle-alist)))
;; `handles' will be nil if there is the only one part
;; in the article and is deleted.
(when (and handles current-id (integerp gnus-auto-select-part))
(gnus-article-jump-to-part
(min (max (+ current-id gnus-auto-select-part) 1)
(length handles)))))))
(defun gnus-mime-replace-part (file)
"Replace MIME part under point with an external body."