Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 111724:a03d962cdb9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-art.el (gnus-url-mailto): Unfold URLs before using them. nnheader.el (nnheader-update-marks-actions): Fix typo in last checkin. shr-color.el: Require cl when compiling.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 26 Nov 2010 02:31:57 +0000
parents 7c6e6f2b3351
children 62f897baec0a
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Fri Nov 26 03:28:03 2010 +0100
+++ b/lisp/gnus/gnus-art.el	Fri Nov 26 02:31:57 2010 +0000
@@ -8146,6 +8146,7 @@
 
 (defun gnus-url-mailto (url)
   ;; Send mail to someone
+  (setq url (replace-regexp-in-string "\n" " " url))
   (when (string-match "mailto:/*\\(.*\\)" url)
     (setq url (substring url (match-beginning 1) nil)))
   (let (to args subject func)