From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/9521 Path: news.gmane.org!not-for-mail From: Hadron Newsgroups: gmane.emacs.gnus.user Subject: Re: fs-change-smtp and draft messages Date: Tue, 14 Aug 2007 15:54:25 +0200 Organization: http://en.wikipedia.org/wiki/Quark Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1187102460 7683 80.91.229.12 (14 Aug 2007 14:41:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Aug 2007 14:41:00 +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 16:40:58 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 1IKxZn-0004mh-KN for gegu-info-gnus-english@m.gmane.org; Tue, 14 Aug 2007 16:40:55 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IKxZn-0001lu-3q for gegu-info-gnus-english@m.gmane.org; Tue, 14 Aug 2007 10:40:55 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!goblin1!goblin.stu.neva.ru!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-Lines: 53 Original-X-Trace: individual.net mtfGccCjTxlOgUMLfX4x4Qlpw2LzH0tMeFvtiqH/Mg5ig8m4+3 X-Orig-Path: news.individual.net!news Cancel-Lock: sha1:hJxxzIcfJbiKTpeCfcQQVneGuQE= sha1:DEZjcqyuMOrMZlpMWfDMpH7Jw88= Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAGFBMVEUPDQ1bVEeWcSHosxDD ojimpJ76+vnczqjhNce/AAAACXBIWXMAAABIAAAASABGyWs+AAAB6UlEQVQ4y22UvW4TQRDHf7P2 paG4vSTuDwMlQgJRUfiIEC22gqnT2G/AcySU4AJTX4EfgMI8AMISdRTTEpRdu/MHWYq9r/g8zWr3 d/+Z2ZnZU8PCBv1+uRkqcnOjNB3ZYlsAGQEu1TWwBhB3UQOhXzY1MAZwOL0LcpvXQAQSwbQGhl15 PyiVBQg+CX8+d7E1hUPbv3sUL5Jf7cXBtA6mzZDl4z2K5CeAxu2/h2VbD251dEQQ6t0Yz5wT3dvY i7vALQ5Pj56GzaKMOdgcMMcgGmerQMZvXBQBZzCpghU6T4u1roCxeCAt4EMJNjBHQG5/a1iVwNDS OHASdr2/IqskW6WFD+/BJMhbzVLA5cAhZWVC2OZgSyGApKIwnO0WGQXIpOg0EJe1Wlc95YPls1pQ MwXQ1vruaexBI7r/pTj7MQMBFBJdIasiuo6hMQPF5TcLcf5iBAtPLCi5Ami6cw9urWo/QED5VF28 8c4OtWjNVhfV1dn838wR4Dsqe0KNoAtA6i++nSnJbnoCwD2bpZeof1k61xbk+jyrjlRGNE3Tj1+z xjRPrJIw+8gZA7g50OxYlDx/6YwFS9SLelHkENOxoDDLR6cuNOZdv9Vv9bvW3DzMp8QtXmnz2jsM EoK47AfHg+yXwfHbDgD/AWsIohF8qgD0AAAAGnpUWHRKUEVHLUNvbG9yc3BhY2UAAHjaMwIAADMA MxEWfmMAAAAqelRYdEpQRUctU2FtcGxpbmctZmFjdG9ycwAAeNozqjDSMaww1DGsMAQAEYMC6QbE yigAAAAASUVORK5CYII= User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.91 (gnu/linux) Original-Xref: shelby.stanford.edu gnu.emacs.gnus:79710 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:9521 Archived-At: 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 --