Commit 45c5ccd4 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

Fix inserting parts with `E' in Gnus

* lisp/gnus/mm-decode.el (mm-head-p): New function.
(mm-display-part): Go to a blank line when inserting parts internally.
Fix inserting parts with `E' in Gnus

* lisp/gnus/mm-decode.el (mm-head-p): New function.
(mm-display-part): Go to a blank line when inserting parts internally.
parent ba5bc0ee
2015-02-14 Lars Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-head-p): New function.
(mm-display-part): Go to a blank line when inserting parts internally.
2015-02-13 Lars Ingebrigtsen <larsi@gnus.org>
 
* gnus-msg.el (gnus-msg-mail): Don't let-bind `gnus-newsgroup-name' so
......
......@@ -5505,7 +5505,8 @@ If no internal viewer is available, use an external viewer."
(gnus-mime-view-part-as-type
nil (lambda (type) (mm-inlinable-p handle type)))
(when handle
(gnus-bind-safe-url-regexp (mm-display-part handle))))))
(gnus-bind-safe-url-regexp
(mm-display-part handle nil t))))))
(defun gnus-mime-action-on-part (&optional action)
"Do something with the MIME attachment at \(point\)."
......
......@@ -791,6 +791,14 @@ MIME-Version header before proceeding."
(autoload 'mailcap-parse-mailcaps "mailcap")
(autoload 'mailcap-mime-info "mailcap")
(defun mm-head-p (&optional point)
"Return non-nil if point is in the article header."
(let ((point (or point (point))))
(save-excursion
(goto-char point)
(and (not (re-search-backward "^$" nil t))
(re-search-forward "^$" nil t)))))
(defun mm-display-part (handle &optional no-default force)
"Display the MIME part represented by HANDLE.
Returns nil if the part is removed; inline if displayed inline;
......@@ -824,6 +832,10 @@ external if displayed external."
'inline)
((and (mm-inlinable-p ehandle)
(mm-inlined-p ehandle))
(when force
(if (mm-head-p)
(re-search-forward "^$" nil t)
(forward-line 1)))
(mm-display-inline handle)
'inline)
((or method
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment