From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/86232 Path: news.gmane.org!not-for-mail From: Michael Sperber Newsgroups: gmane.emacs.gnus.general Subject: PATCH: Bind `rmail-dont-reply-to-names' Date: Sun, 18 Oct 2015 18:04:22 +0200 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1445210178 16427 80.91.229.3 (18 Oct 2015 23:16:18 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 18 Oct 2015 23:16:18 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M34466@lists.math.uh.edu Mon Oct 19 01:16:04 2015 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZnxBL-0002mo-9t for ding-account@gmane.org; Mon, 19 Oct 2015 01:16:03 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.85) (envelope-from ) id 1ZnxAV-00029C-H4; Sun, 18 Oct 2015 18:15:11 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by lists1.math.uh.edu with esmtps (TLSv1.2:AES128-GCM-SHA256:128) (Exim 4.85) (envelope-from ) id 1ZnqSL-0000A2-DV for ding@lists.math.uh.edu; Sun, 18 Oct 2015 11:05:09 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.85) (envelope-from ) id 1ZnqSJ-0005ve-4C for ding@lists.math.uh.edu; Sun, 18 Oct 2015 11:05:09 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.80) (envelope-from ) id 1ZnqSH-0006Uv-DX for ding@gnus.org; Sun, 18 Oct 2015 18:05:05 +0200 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZnqSF-0005u5-98 for ding@gnus.org; Sun, 18 Oct 2015 18:05:03 +0200 Original-Received: from p4fd1e58b.dip0.t-ipconnect.de ([79.209.229.139]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 18 Oct 2015 18:05:03 +0200 Original-Received: from sperber by p4fd1e58b.dip0.t-ipconnect.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 18 Oct 2015 18:05:03 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 53 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: p4fd1e58b.dip0.t-ipconnect.de User-Agent: Gnus/5.130014 (Ma Gnus v0.14) XEmacs/21.5-b34 (darwin) Cancel-Lock: sha1:OOsXNJyJw8a86vRhTw9QN8hsXlI= X-Spam-Score: -2.9 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:86232 Archived-At: --=-=-= Content-Type: text/plain XEmacs uses `rmail-dont-reply-to-names' in a few places, bound in the attached patch. Could this be applied and pushed? -- Regards, Mike --=-=-= Content-Type: text/plain Content-Disposition: inline commit 93e9c3007ab16c6e95016d302c5fdd6e386c94c3 Author: Mike Sperber Date: Sun Oct 18 17:43:47 2015 +0200 * message.el (message-get-reply-headers): In addition to `mail-dont-reply-to-names', bind `rmail-dont-reply-to-names', which is used in XEmacs. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ea368d..2f7fd2b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-10-18 Michael Sperber + + * message.el (message-get-reply-headers): In addition to + `mail-dont-reply-to-names', bind `rmail-dont-reply-to-names', which is + used in XEmacs. + 2015-10-14 Katsumi Yamaoka * auth-source.el (auth-source-epa-make-gpg-token): Revert. diff --git a/lisp/message.el b/lisp/message.el index 12e4e49..7d0534c 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -6974,7 +6974,8 @@ want to get rid of this query permanently."))) (while (string-match "[ \t][ \t]+" recipients) (setq recipients (replace-match " " t t recipients))) ;; Remove addresses that match `mail-dont-reply-to-names'. - (let ((mail-dont-reply-to-names (message-dont-reply-to-names))) + (let ((mail-dont-reply-to-names (message-dont-reply-to-names)) + (rmail-dont-reply-to-names (message-dont-reply-to-names))) (setq recipients (mail-dont-reply-to recipients))) ;; Perhaps "Mail-Copies-To: never" removed the only address? (if (string-equal recipients "") --=-=-=--