[Emacs-diffs] /srv/bzr/emacs/trunk r102299: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102299
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-10 00:02:44 +0000
message:
  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.
modified:
  lisp/ChangeLog
  lisp/net/browse-url.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-09 20:07:10 +0000
+++ b/lisp/ChangeLog    2010-11-10 00:02:44 +0000
@@ -1,3 +1,9 @@
+2010-11-10  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/tcl.el (tcl-hairy-scan-for-comment): Doc fix.

=== modified file 'lisp/net/browse-url.el'
--- a/lisp/net/browse-url.el    2010-10-09 00:52:12 +0000
+++ b/lisp/net/browse-url.el    2010-11-10 00:02:44 +0000
@@ -1479,20 +1479,27 @@
           (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 ---