From: Michal Sojka Date: Thu, 6 Sep 2012 08:23:35 +0000 (+0200) Subject: [PATCH v2] emacs: Add customization group for replying X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=7e20a4eea30d7817f8921fe31fe17637da42bcff;p=notmuch-archives.git [PATCH v2] emacs: Add customization group for replying --- diff --git a/24/a8f60b866bd170f4df6b330343834128431cf4 b/24/a8f60b866bd170f4df6b330343834128431cf4 new file mode 100644 index 000000000..d6ca50dcd --- /dev/null +++ b/24/a8f60b866bd170f4df6b330343834128431cf4 @@ -0,0 +1,100 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by olra.theworths.org (Postfix) with ESMTP id F2555431FAF + for ; Thu, 6 Sep 2012 01:23:45 -0700 (PDT) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: -2.3 +X-Spam-Level: +X-Spam-Status: No, score=-2.3 tagged_above=-999 required=5 + tests=[RCVD_IN_DNSWL_MED=-2.3] autolearn=disabled +Received: from olra.theworths.org ([127.0.0.1]) + by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id x+4JdLQHCsj7 for ; + Thu, 6 Sep 2012 01:23:45 -0700 (PDT) +Received: from max.feld.cvut.cz (max.feld.cvut.cz [147.32.192.36]) + by olra.theworths.org (Postfix) with ESMTP id 3B2F6431FAE + for ; Thu, 6 Sep 2012 01:23:45 -0700 (PDT) +Received: from localhost (unknown [192.168.200.4]) + by max.feld.cvut.cz (Postfix) with ESMTP id 5AAC419F32FE; + Thu, 6 Sep 2012 10:23:40 +0200 (CEST) +X-Virus-Scanned: IMAP AMAVIS +Received: from max.feld.cvut.cz ([192.168.200.1]) + by localhost (styx.feld.cvut.cz [192.168.200.4]) (amavisd-new, + port 10044) + with ESMTP id oPkKaDVXTOIx; Thu, 6 Sep 2012 10:23:36 +0200 (CEST) +Received: from imap.feld.cvut.cz (imap.feld.cvut.cz [147.32.192.34]) + by max.feld.cvut.cz (Postfix) with ESMTP id 0ADFA19F30DD; + Thu, 6 Sep 2012 10:23:36 +0200 (CEST) +Received: from steelpick.2x.cz (note-sojka.felk.cvut.cz [147.32.86.30]) + (Authenticated sender: sojkam1) + by imap.feld.cvut.cz (Postfix) with ESMTPSA id 06286660904; + Thu, 6 Sep 2012 10:23:36 +0200 (CEST) +Received: from wsh by steelpick.2x.cz with local (Exim 4.80) + (envelope-from ) + id 1T9XN9-0005Jw-UT; Thu, 06 Sep 2012 10:23:35 +0200 +From: Michal Sojka +To: notmuch@notmuchmail.org +Subject: [PATCH v2] emacs: Add customization group for replying +Date: Thu, 6 Sep 2012 10:23:35 +0200 +Message-Id: <1346919815-20397-1-git-send-email-sojkam1@fel.cvut.cz> +X-Mailer: git-send-email 1.7.10.4 +In-Reply-To: +References: +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.13 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Thu, 06 Sep 2012 08:23:46 -0000 + +When one wants to customize the format of reply message, there is nothing +to tell the user how to do it. Without knowing that construction of +reply buffer is actually implemented in the message package, it seems +that replying cannot be customized. + +Because I was getting annoyed by the empty line the between the citation +line and the quoted message, I figured out that changing this is fairly +easy when one knows what to customize. + +This patch adds notmuch-reply customization group that contains +references to the relevant customization options. The new group is easy +to find as it is shown as a result of running "M-x customize-group RET +notmuch RET". +--- + emacs/notmuch-lib.el | 10 ++++++++++ + 1 file changed, 10 insertions(+) + +diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el +index 900235b..c045a32 100644 +--- a/emacs/notmuch-lib.el ++++ b/emacs/notmuch-lib.el +@@ -45,6 +45,16 @@ + "Showing messages and threads." + :group 'notmuch) + ++(defgroup notmuch-reply ++ '((message-insertion custom-group) ++ (notmuch-message-replied-tags custom-variable)) ++ "Replying to messages. ++ ++Most of the reply customization settings can be found in `Message ++insertion' group. Notmuch specific settings is included directly ++here." ++ :group 'notmuch) ++ + (defgroup notmuch-send nil + "Sending messages from Notmuch." + :group 'notmuch) +-- +1.7.10.4 +