Commit 5ad3e885 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

net/browse-url.el (browse-url-mail): Insert body part of mailto url in mail...

net/browse-url.el (browse-url-mail): Insert body part of mailto url in mail buffer; make yank-action always a command that yanks original buffer.
parent be3c11b3
2010-11-10 Katsumi Yamaoka <yamaoka@jpl.org>
* net/browse-url.el (browse-url-mail): Insert body part of mailto url
in mail buffer; make yank-action always a command that yanks original
buffer.
2010-11-09 Glenn Morris <rgm@gnu.org>
* progmodes/tcl.el (tcl-hairy-scan-for-comment): Doc fix.
......
......@@ -1479,20 +1479,27 @@ used instead of `browse-url-new-window-flag'."
(to (assoc "To" alist))
(subject (assoc "Subject" alist))
(body (assoc "Body" alist))
(rest (delete to (delete subject (delete body alist))))
(rest (delq to (delq subject (delq body alist))))
(to (cdr to))
(subject (cdr subject))
(body (cdr body))
(mail-citation-hook (unless body mail-citation-hook)))
(if (browse-url-maybe-new-window new-window)
(compose-mail-other-window to subject rest nil
(if body
(list 'insert body)
(list 'insert-buffer (current-buffer))))
(list 'insert-buffer (current-buffer)))
(compose-mail to subject rest nil nil
(if body
(list 'insert body)
(list 'insert-buffer (current-buffer))))))))
(list 'insert-buffer (current-buffer))))
(when body
(goto-char (point-min))
(unless (or (search-forward (concat "\n" mail-header-separator "\n")
nil 'move)
(bolp))
(insert "\n"))
(goto-char (prog1
(point)
(insert (replace-regexp-in-string "\r\n" "\n" body))
(unless (bolp)
(insert "\n"))))))))
;; --- Random browser ---
......
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