From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/9525 Path: news.gmane.org!not-for-mail From: Slackrat Newsgroups: gmane.emacs.gnus.user Subject: Re: fs-change-smtp and draft messages Date: Tue, 14 Aug 2007 17:28:27 +0200 Organization: Not very much! Message-ID: <87lkcerv8k.fsf@azurservers.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1187106034 21656 80.91.229.12 (14 Aug 2007 15:40:34 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Aug 2007 15:40:34 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Tue Aug 14 17:40:32 2007 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IKyVL-000591-QM for gegu-info-gnus-english@m.gmane.org; Tue, 14 Aug 2007 17:40:24 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IKyVL-0002RJ-2o for gegu-info-gnus-english@m.gmane.org; Tue, 14 Aug 2007 11:40:23 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsgate.cistron.nl!xs4all!feeder.news-service.com!proxad.net!feeder2-2.proxad.net!cleanfeed3-a.proxad.net!nnrp14-2.free.fr!not-for-mail Original-Newsgroups: gnu.emacs.gnus X-Operating-System: Slackware GNU/Linux X-Homepage: http://azurservers.com X-Guarantee: This email is certified to have been free of UCE and any other Malicious, Harmful or Annoying Content when originally sent by @azurservers.com - Azurservers post SPF records and do not condone SPAM type emails X-Azurservers-AuthNo: Registered as AZSV bghkd8332277 User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwAgMAAAAqbBEUAAAADFBMVEWRko+3t7RiV1A6JSJg h7nIAAACBElEQVQokSXSQWsTQRQH8P/uJlKyYBS799BTSCSLelERu6iHNIqGdCbU9iNE6EdwKeSS HhSh4DHNzdni5pjmsBsqudST32B7EOJGTNpTsgn7nE0OA/Pjz3tvHgwiGlO4qRaKQjQRTcb/Lnwa ZY58A31nfLkwab5l9wDR6YTRMf0Roi3hhOHMpEs/VixETjT6QtTyp6eAR4uZTvR1MuQc27QIHKKT Pb5GyyUaGAk+0k1BEF3f3awymQRiTOP5g4ro4GkJBYcMz49ECKsg3HiZcX0SMSxVVhAtfhLF4Fz2 6tss9EOxRinNn7uThYRPFJ7y16GI14j7nJ1XUxLbst5M84rBJQ5joqOA174xiZr/joJ8I4yTpE62 G/Wu2CgBo0GN3CvrVwLuRh0y29qqAT+MXIpzZb5CY2leewqShKUbS3+owwLAC/nO3FNe2vIO1qzd RMGr7Ap1o1pcpJWHowT7rKwvre4Piu8Ae8zSlzUnO9WHHDssd48yZ/0Zzjnec1sjZxr8RdZIoNLk YvAd2gA79dktamn2IyBA2QoydKZjC+hi/4Wdp98VbNh4jFoKcIcH2GjjPuqfoZgnB3x3KsHko0x7 11BtlMBzUI8DrckUdhs8g7fOVB2kON7A0sK22pYzFP4BHHqySleeJ2AWPPk3nkn0IMdAtL1PNtQg 2Q+qGxVHyA7+A58cF4sUszMTAAAAAElFTkSuQmCC Cancel-Lock: sha1:eKnXuzOP0GHyAGlr+vfBZBxzJTw= Original-Lines: 59 Original-NNTP-Posting-Date: 14 Aug 2007 17:28:33 MEST Original-NNTP-Posting-Host: 82.242.110.54 Original-X-Trace: 1187105313 news-1.free.fr 408 82.242.110.54:44066 Original-X-Complaints-To: abuse@proxad.net Original-Xref: shelby.stanford.edu gnu.emacs.gnus:79713 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:9525 Archived-At: Hadron writes: > Tassilo Horn writes: > >> Hadron writes: >> >> Hi Hadron, >> >>> If I save a message to drafts and then edit it at a later date (press >>> "e" - calls function gnus-draft-edit-message) then the call to the >>> hook fs-change-smtp doesn't respect the existing "from" field in the >>> draft. >> >> Sure, because the message buffer doesn't neet to be setup then. You >> added `fs-change-smtp' to `message-setup-hook', whereas >> `message-send-hook' would be much more appropriate. > > Ye gods. That must have been some careless global changes I made. > > The question remains though and possibly you could explain it to me (I > cant follow the lisp), why is message setup hook being called for > editing a draft, and even though it is (was) why is it not picking up > the existing "From" field that is there in the draft? > >> >>> ,---- >>> | (defun fs-change-smtp () >>> | "Change the SMTP server according to the current from line." >>> | (setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))) >>> | (setq message-send-mail-function 'smtpmail-send-it) >>> | (save-excursion >>> | (let ((from >>> | (save-restriction >>> | (message-narrow-to-headers) >>> | (message-fetch-field "from")))) >>> | (message "%s" from) >>> | (message "**** From is `%s', setting `smtpmail-smtp-server' to `%s'" >>> | from >>> | (cond >>> | ((string-match ".*adron.*" from) >>> | (setq smtpmail-auth-credentials '(("smtp.gmail.com" 587 "hadronquark" "*******")))) >>> | ((string-match ".*default.*" from) >>> | (setq smtpmail-auth-credentials '(("smtp.gmail.com" 587 "otheremails" "********")))) >>> | (t >>> | (setq smtpmail-auth-credentials '(("smtp.gmail.com" 587 "default" "********"))) >>> | ))))) >>> | ) >>> | >>> | (add-hook 'message-setup-hook 'fs-change-smtp) >>> `---- >> >> Bye, >> Tassilo > > -- TEST IGNORE -- SlackRat - No 4Q to Reply