From 83c215c3fbbee3c1d2e35658e202b4b7c157e1ce Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 13 Mar 2002 23:39:54 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 13 +++++++++++++ lisp/message.el | 23 ++++++++++++----------- lisp/pop3.el | 2 +- 3 files changed, 26 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 52a6d57..7453cf0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2002-03-13 Simon Josefsson + + * pop3.el (pop3-open-server): Revert multibyte change. From + Pavel@Janik.cz (Pavel Jan,Bm(Bk). + + * message.el (message-send-mail-with-qmail): Make it work. From + Pavel@Janik.cz (Pavel Jan,Bm(Bk). + +2002-03-13 Josh Huber + + * message.el (message-make-mft): Set case-fold-search while + generating the MFT. Also, a little cleanup in the MFT code. + 2002-03-12 Simon Josefsson * message.el (message-qmail-inject-args): May be function. diff --git a/lisp/message.el b/lisp/message.el index 09acdbc..4ba9730 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3558,8 +3558,8 @@ to find out how to use this." ;; free for -inject-arguments -- a big win for the user and for us ;; since we don't have to play that double-guessing game and the user ;; gets full control (no gestapo'ish -f's, for instance). --sj - (if (functionp 'message-qmail-inject-args) - (funcall 'message-qmail-inject-args) + (if (functionp message-qmail-inject-args) + (funcall message-qmail-inject-args) message-qmail-inject-args))) ;; qmail-inject doesn't say anything on it's stdout/stderr, ;; we have to look at the retval instead @@ -4554,7 +4554,8 @@ give as trustworthy answer as possible." (defun message-make-mft () "Return the Mail-Followup-To header." - (let* ((msg-recipients (message-options-get 'message-recipients)) + (let* ((case-fold-search t) + (msg-recipients (message-options-get 'message-recipients)) (recipients (mapcar 'mail-strip-quoted-names (message-tokenize-header msg-recipients))) @@ -4580,15 +4581,15 @@ give as trustworthy answer as possible." (mapcar 'funcall message-subscribed-address-functions)))) (save-match-data - (when (eval (apply 'append '(or) + (when (eval + (apply 'append '(or) + (mapcar + #'(lambda (regexp) (mapcar - (function (lambda (regexp) - (mapcar - (function (lambda (recipient) - `(string-match ,regexp - ,recipient))) - recipients))) - mft-regexps))) + #'(lambda (recipient) + `(string-match ,regexp ,recipient)) + recipients)) + mft-regexps))) msg-recipients)))) ;; Dummy to avoid byte-compile warning. diff --git a/lisp/pop3.el b/lisp/pop3.el index 8971aca..826e6ed 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -188,7 +188,7 @@ Nil means no, t means yes, not-nil-or-t means yet to be determined.") "Open TCP connection to MAILHOST on PORT. Returns the process associated with the connection. Argument PORT specifies connecting port." - (let (default-enable-multibyte-characters process) + (let (process) (save-excursion (set-buffer (get-buffer-create (concat " trace of POP session to " mailhost))) -- 1.7.10.4