From db800b6a21cd0841cfbd4efdb58e231846cf018b Mon Sep 17 00:00:00 2001 From: Michal Sojka Date: Thu, 26 Jul 2012 15:58:33 +0200 Subject: [PATCH] [PATCH] emacs: Add customization group for replying --- d4/413fe1225f944ec391bc94503e4bbe662261db | 99 +++++++++++++++++++++++ 1 file changed, 99 insertions(+) create mode 100644 d4/413fe1225f944ec391bc94503e4bbe662261db diff --git a/d4/413fe1225f944ec391bc94503e4bbe662261db b/d4/413fe1225f944ec391bc94503e4bbe662261db new file mode 100644 index 000000000..2af893837 --- /dev/null +++ b/d4/413fe1225f944ec391bc94503e4bbe662261db @@ -0,0 +1,99 @@ +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 45DD2431FD2 + for ; Thu, 26 Jul 2012 06:58:54 -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 TZYINFDy4yfQ for ; + Thu, 26 Jul 2012 06:58:53 -0700 (PDT) +Received: from max.feld.cvut.cz (max.feld.cvut.cz [147.32.192.36]) + by olra.theworths.org (Postfix) with ESMTP id 1FA1F431FAF + for ; Thu, 26 Jul 2012 06:58:53 -0700 (PDT) +Received: from localhost (unknown [192.168.200.4]) + by max.feld.cvut.cz (Postfix) with ESMTP id 8371719F361A; + Thu, 26 Jul 2012 15:58:48 +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 rWwr5qKEUghR; Thu, 26 Jul 2012 15:58:43 +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 09E8019F3618; + Thu, 26 Jul 2012 15:58:43 +0200 (CEST) +Received: from steelpick.2x.cz (unknown [147.32.86.133]) + (Authenticated sender: sojkam1) + by imap.feld.cvut.cz (Postfix) with ESMTPSA id 010C3660968; + Thu, 26 Jul 2012 15:58:42 +0200 (CEST) +Received: from wsh by steelpick.2x.cz with local (Exim 4.77) + (envelope-from ) + id 1SuOaQ-0005mN-On; Thu, 26 Jul 2012 15:58:42 +0200 +From: Michal Sojka +To: notmuch@notmuchmail.org +Subject: [PATCH] emacs: Add customization group for replying +Date: Thu, 26 Jul 2012 15:58:33 +0200 +Message-Id: <1343311113-22171-1-git-send-email-sojkam1@fel.cvut.cz> +X-Mailer: git-send-email 1.7.10 +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, 26 Jul 2012 13:58:54 -0000 + +When one wants to customize the format of reply message, there 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 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 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 | 11 +++++++++++ + 1 file changed, 11 insertions(+) + +diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el +index 30db58f..47d9e0c 100644 +--- a/emacs/notmuch-lib.el ++++ b/emacs/notmuch-lib.el +@@ -45,6 +45,17 @@ + "Showing messages and threads." + :group 'notmuch) + ++(defgroup notmuch-reply ++ '((message-citation-line-function custom-variable) ++ (message-citation-line-format custom-variable) ++ (message-insertion custom-group)) ++ "Replying to messages. ++ ++Replying in notmuch can be customized in `Message insertion' ++group. However, the most important options from that group are ++also included here." ++ :group 'notmuch) ++ + (defgroup notmuch-send nil + "Sending messages from Notmuch." + :group 'notmuch) +-- +1.7.10 + -- 2.26.2