summaryrefslogtreecommitdiff
path: root/lisp/gnus/mm-view.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2019-02-15 13:25:31 -0800
committerGlenn Morris <rgm@gnu.org>2019-02-15 13:25:31 -0800
commit92a2c737b9451271218baab13e7030c55a9fb260 (patch)
tree4152178487c38964b5cc32704bb1b7694940a933 /lisp/gnus/mm-view.el
parent38b442429bd0f15212960fb7fd37bd701cc8af3f (diff)
parent25d9fe24a657565761f79d7d96e22777a94aa84f (diff)
downloademacs-92a2c737b9451271218baab13e7030c55a9fb260.tar.gz
emacs-92a2c737b9451271218baab13e7030c55a9fb260.tar.bz2
emacs-92a2c737b9451271218baab13e7030c55a9fb260.zip
Merge from origin/emacs-26
25d9fe2 Work for empty MIME attachments (related to bug#34387)
Diffstat (limited to 'lisp/gnus/mm-view.el')
-rw-r--r--lisp/gnus/mm-view.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index cf41c4595cb..b0d88d89843 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -370,10 +370,12 @@
(enriched-decode (point-min) (point-max))))
(mm-handle-set-undisplayer
handle
- `(lambda ()
- (let ((inhibit-read-only t))
- (delete-region ,(copy-marker (point-min) t)
- ,(point-max-marker))))))))
+ (if (= (point-min) (point-max))
+ #'ignore
+ `(lambda ()
+ (let ((inhibit-read-only t))
+ (delete-region ,(copy-marker (point-min) t)
+ ,(point-max-marker)))))))))
(defun mm-insert-inline (handle text)
"Insert TEXT inline from HANDLE."