From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.bugs Subject: bug#14117: 24.3.50; message buffer is not deleted when sending email Date: Tue, 16 Apr 2013 22:30:05 +0200 Organization: Emacs Helm Message-ID: <87txn6kylu.fsf@gmail.com> References: <87sj3a86cn.fsf@gmail.com> <5194B5F8F5CD469EBB1C5CB7DFC21C4B@us.oracle.com> <87li8invaz.fsf@gmail.com> <8761zmutur.fsf@gmail.com> <87y5cikz4a.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1366144249 23036 80.91.229.3 (16 Apr 2013 20:30:49 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 16 Apr 2013 20:30:49 +0000 (UTC) To: 14117@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Apr 16 22:30:52 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1USCWh-0001M7-Jf for geb-bug-gnu-emacs@m.gmane.org; Tue, 16 Apr 2013 22:30:51 +0200 Original-Received: from localhost ([::1]:53379 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCWh-0003KR-68 for geb-bug-gnu-emacs@m.gmane.org; Tue, 16 Apr 2013 16:30:51 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:33935) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCWa-0003HB-Jg for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:45 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1USCWZ-0005lQ-Ak for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:44 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:51142) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCWZ-0005lI-6z for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:43 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1USCaj-00071b-VO for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:35:01 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <87sj3a86cn.fsf@gmail.com> Resent-From: Thierry Volpiatto Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 16 Apr 2013 20:35:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14117 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.136614448426970 (code B ref -1); Tue, 16 Apr 2013 20:35:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 16 Apr 2013 20:34:44 +0000 Original-Received: from localhost ([127.0.0.1]:55251 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1USCaQ-00070u-Hp for submit@debbugs.gnu.org; Tue, 16 Apr 2013 16:34:43 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:50706) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1USCaN-00070m-Sb for submit@debbugs.gnu.org; Tue, 16 Apr 2013 16:34:40 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1USCWB-0005gY-Lz for submit@debbugs.gnu.org; Tue, 16 Apr 2013 16:30:20 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:34718) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCWB-0005gS-Ju for submit@debbugs.gnu.org; Tue, 16 Apr 2013 16:30:19 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:33831) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCWA-0003Fj-C1 for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1USCW5-0005eu-Lh for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:18 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:42830) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1USCW5-0005el-Fi for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 16:30:13 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1USCW3-0000RZ-7b for bug-gnu-emacs@gnu.org; Tue, 16 Apr 2013 22:30:11 +0200 Original-Received: from lbe83-2-78-243-104-167.fbx.proxad.net ([78.243.104.167]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 16 Apr 2013 22:30:11 +0200 Original-Received: from thierry.volpiatto by lbe83-2-78-243-104-167.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 16 Apr 2013 22:30:11 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 37 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: lbe83-2-78-243-104-167.fbx.proxad.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) Cancel-Lock: sha1:YiVUdGWZzb0BZZ68zF5KRw1g/cE= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:73465 Archived-At: Thierry Volpiatto writes: > Thierry Volpiatto writes: > >> One other fix would be to leave `message-bury' as it is and call it in >> `message-send-and-exit' with no arg (not tested but should work). > I meant `message-bury' nearly unchanged (use an optional arg) > > diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el > index 2b2a0a9..be2f671 100644 > --- a/lisp/gnus/message.el > +++ b/lisp/gnus/message.el > @@ -4047,7 +4047,7 @@ It should typically alter the sending method in some way or other." > (actions message-exit-actions)) > (when (and (message-send arg) > (buffer-name buf)) > - (message-bury buf) > + (message-bury) > (if message-kill-buffer-on-exit > (kill-buffer buf)) > (message-do-actions actions) > @@ -4095,7 +4095,7 @@ Instead, just auto-save the buffer and then bury it." > (message-disassociate-draft))) > (message-do-actions actions)))) > > -(defun message-bury (buffer) > +(defun message-bury (&optional buffer) > "Bury this mail BUFFER." > (bury-buffer buffer) > (when message-return-action Tested and works fine. -- Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997