From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: "Andrea G. Monaco" Newsgroups: gmane.emacs.bugs Subject: bug#47330: [PATCH] Add options to save sent mail Date: Mon, 22 Mar 2021 23:04:56 +0100 Message-ID: <87r1k6x2t3.fsf@autistici.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="27545"; mail-complaints-to="usenet@ciao.gmane.io" To: 47330@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Mar 22 23:06:36 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lOSh1-00073F-IY for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 22 Mar 2021 23:06:35 +0100 Original-Received: from localhost ([::1]:43726 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lOSh0-0001q2-DL for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 22 Mar 2021 18:06:34 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:54878) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lOSgU-0001oW-St for bug-gnu-emacs@gnu.org; Mon, 22 Mar 2021 18:06:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:47504) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lOSgU-00022T-KM for bug-gnu-emacs@gnu.org; Mon, 22 Mar 2021 18:06:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lOSgU-00051f-EF for bug-gnu-emacs@gnu.org; Mon, 22 Mar 2021 18:06:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Andrea G. Monaco" Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 22 Mar 2021 22:06:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 47330 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.161645071119240 (code B ref -1); Mon, 22 Mar 2021 22:06:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 22 Mar 2021 22:05:11 +0000 Original-Received: from localhost ([127.0.0.1]:59050 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lOSff-00050G-DN for submit@debbugs.gnu.org; Mon, 22 Mar 2021 18:05:11 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:44232) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lOSfe-000507-BF for submit@debbugs.gnu.org; Mon, 22 Mar 2021 18:05:10 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:54734) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lOSfc-0001B6-AT for bug-gnu-emacs@gnu.org; Mon, 22 Mar 2021 18:05:08 -0400 Original-Received: from confino.investici.org ([212.103.72.250]:64543) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lOSfY-0001Za-SU for bug-gnu-emacs@gnu.org; Mon, 22 Mar 2021 18:05:08 -0400 Original-Received: from mx1.investici.org (unknown [127.0.0.1]) by confino.investici.org (Postfix) with ESMTP id 4F47pK2zZ9z113P for ; Mon, 22 Mar 2021 22:04:57 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=autistici.org; s=stigmate; t=1616450697; bh=pSNWlyq19tJtcU64tgB6CyUoYB5AhMzVK2vO1eipLiY=; h=From:To:Subject:Date:From; b=lr+sT6OvKk97vR2eOWhexxkT4HrCbqgzZsJit5JmM0Sy3F8z1EhqiZMuvZ2m9LK4b ZiMmSKgbyF4jhKhBRelr/YD9UtluO28WE/59cIKANYVHRuEMLOg4Z/41SGPX0l2MK8 GNoLTL+Vs1M6ccVbiDG6ADOofGz3o98lrsMwEJDI= Original-Received: from [212.103.72.250] (mx1.investici.org [212.103.72.250]) (Authenticated sender: andrea.monaco@autistici.org) by localhost (Postfix) with ESMTPSA id 4F47pK1vT7z110f for ; Mon, 22 Mar 2021 22:04:57 +0000 (UTC) Received-SPF: pass client-ip=212.103.72.250; envelope-from=andrea.monaco@autistici.org; helo=confino.investici.org X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:202873 Archived-At: I think this might be useful, for me it is. Add options to save sent mail * lisp/gnus/message.el: add defcustoms message-save-sent-mail and message-sent-mail-directory (message-send): save sent mail if message-save-sent-mail is set diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 1e0362a3bf..e159d50ebe 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -469,6 +469,18 @@ message-confirm-send :link '(custom-manual "(message)Sending Variables") :type 'boolean) +(defcustom message-save-sent-mail nil + "When non-nil, save messages after successfully sending them, after running message-sent-hook." + :group 'message-sending + :group 'message-mail + :type 'boolean) + +(defcustom message-sent-mail-directory (concat message-directory "sent/") + "Directory where sent mail is saved, when message-save-sent-mail is set." + :group 'message-sending + :group 'message-mail + :type 'directory) + (defcustom message-generate-new-buffers 'unsent "Say whether to create a new message buffer to compose a message. Valid values include: @@ -4364,7 +4376,7 @@ message-send (message-do-fcc) (save-excursion (run-hooks 'message-sent-hook)) - (message "Sending...done") + (message "Sending... done") ;; Do ecomplete address snarfing. (when (and (message-mail-alias-type-p 'ecomplete) (not message-inhibit-ecomplete)) @@ -4373,6 +4385,9 @@ message-send (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) + ;; Save mail if the user wishes so + (if message-save-sent-mail + (write-file (concat message-sent-mail-directory (format-time-string "%Y%m%d-%H%M%S")))) ;; Delete other mail buffers and stuff. (message-do-send-housekeeping) (message-do-actions message-send-actions)