On Tue, Sep 06 2005, Michael Cadilhac wrote: [ Crosspost & Followup-To: gnu.emacs.gnus ]
> As I've multiple aliases for the same mailbox, I receive mail sent > to different addresses (mentioned in the `envelope-to' field of the > received messages). > > In order to not disturb the sender, I want - when replying - to be > warned like : > > ``Your default "from" field is [EMAIL PROTECTED]', but the > sender used [EMAIL PROTECTED]'. Change ?'' I use the following code to check the "To" header. After changing (message-fetch-field "to") to (message-fetch-field "envelope-to") it might do what you want. You also need to set `rs-message-to-from-addresses' or `gnus-ignored-from-addresses'. --8<---------------cut here---------------start------------->8--- (defvar rs-message-to-from-addresses gnus-ignored-from-addresses "Regexp matching To headers. When using entries like ((message-mail-p) (address (rs-message-to-from-address))) or ((message-mail-p) (address (rs-message-to-from-address \"[EMAIL PROTECTED]"))) in `gnus-posting-styles', the address in the From header is taken from the To header of the article you are replying to.") ;;;###autoload (defun rs-message-to-from-address (&optional fallback) "Return a suitable address. See `rs-message-to-from-addresses' for more." (let ((to (and (boundp 'gnus-article-buffer) (gnus-buffer-live-p gnus-article-buffer) ;; `gnus-buffer-live-p' already returns ;; `gnus-article-buffer', but it's not documented. So ;; let's be careful. gnus-article-buffer (with-current-buffer gnus-article-buffer (message-fetch-field "to"))))) (cond ((and to (not (string-match "," to));; FIXME (string-match rs-message-to-from-addresses to)) (let ((from (cadr (mail-extract-address-components to)))) ;; gnus-extract-address-components fails for dit Outlook stuff! (if (and (string-match rs-message-to-from-addresses from) (string-match (concat "^" (if (boundp 'gnus-button-valid-localpart-regexp) gnus-button-valid-localpart-regexp "[a-z0-9-_+.]+") "@" message-valid-fqdn-regexp "$") from)) from (if (y-or-n-p (format "Address <%s> might be bogus. Use anyway? " from)) from)))) (fallback fallback) (t user-mail-address)))) --8<---------------cut here---------------end--------------->8--- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/ _______________________________________________ Help-gnu-emacs mailing list Help-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnu-emacs