ChangeLog: Improve style.

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 22bf45b..bff11b2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -326,7 +326,7 @@ used."
   :group 'message-various)
 
 (defcustom message-subject-trailing-was-ask-regexp
-  "[ \t]*\\([[(]+[Ww][Aa][Ss][ \t]*.*[\])]+\\)"
+  "[ \t]*\\([[(]+[Ww][Aa][Ss]:?[ \t]*.*[])]+\\)"
   "*Regexp matching \"(was: <old subject>)\" in the subject line.
 
 The function `message-strip-subject-trailing-was' uses this regexp if
@@ -6551,31 +6551,6 @@ is a function used to switch to and display the mail buffer."
     ;; FIXME: Should return nil if failure.
     t))
 
-;;;###autoload
-(defun message-mailto (url &rest args)
-  "Send a mail message to URL.
-The URL should be on the form \"mailto:<address>?params\"."
-  (when (string-match "\\`mailto:" url)
-    (setq url (substring url (match-end 0)))
-    (let (to args)
-      (if (string-match "\\?" url)
-         (setq to (substring url 0 (match-beginning 0))
-               args (substring url (match-end 0)))
-       (setq to url))
-      (if (not args)
-         (message-mail to)
-       (let ((pairs
-              (mapcar (lambda (elem)
-                        (let ((key-val (split-string elem "=")))
-                          (list (capitalize (car key-val))
-                                (cadr key-val))))
-                      (split-string args "&")))
-             subject)
-         (when (setq subject (assoc "Subject" pairs))
-           (setq pairs (delq subject pairs)
-                 subject (cadr subject)))
-         (message-mail to subject pairs))))))
-
 ;;;###autoload
 (defun message-news (&optional newsgroups subject)
   "Start editing a news article to be sent."
@@ -7501,7 +7476,11 @@ is for the internal use."
       (when (looking-at "From ")
        (replace-match "X-From-Line: "))
       ;; Send it.
-      (let ((message-inhibit-body-encoding t)
+      (let ((message-inhibit-body-encoding
+            ;; Don't do any further encoding if it looks like the
+            ;; message has already been encoded.
+            (let ((case-fold-search t))
+              (re-search-forward "^mime-version:" nil t)))
            (message-inhibit-ecomplete t)
            message-required-mail-headers
            message-generate-hashcash