f2/5fd4a0a3010a27938cfa6e0320629eb8507ff6

   1 Return-Path: <sojkam1@fel.cvut.cz>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 2679B431FCF\r
   6         for <notmuch@notmuchmail.org>; Mon,  1 Mar 2010 09:30:16 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -2.208\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-2.208 tagged_above=-999 required=5 tests=[AWL=0.391,\r
  12         BAYES_00=-2.599] autolearn=ham\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id 967qO3jgcEDf for <notmuch@notmuchmail.org>;\r
  16         Mon,  1 Mar 2010 09:30:15 -0800 (PST)\r
  17 Received: from max.feld.cvut.cz (max.feld.cvut.cz [147.32.192.36])\r
  18         by olra.theworths.org (Postfix) with ESMTP id 4099D431FBD\r
  19         for <notmuch@notmuchmail.org>; Mon,  1 Mar 2010 09:30:15 -0800 (PST)\r
  20 Received: from localhost (unknown [192.168.200.4])\r
  21         by max.feld.cvut.cz (Postfix) with ESMTP id 180A419F33C7;\r
  22         Mon,  1 Mar 2010 18:30:07 +0100 (CET)\r
  23 X-Virus-Scanned: IMAP AMAVIS\r
  24 Received: from max.feld.cvut.cz ([192.168.200.1])\r
  25         by localhost (styx.feld.cvut.cz [192.168.200.4]) (amavisd-new,\r
  26         port 10044)\r
  27         with ESMTP id 7SvD9VbASmzK; Mon,  1 Mar 2010 18:30:04 +0100 (CET)\r
  28 Received: from imap.feld.cvut.cz (imap.feld.cvut.cz [147.32.192.34])\r
  29         by max.feld.cvut.cz (Postfix) with ESMTP id DB8ED19F33C9;\r
  30         Mon,  1 Mar 2010 18:30:04 +0100 (CET)\r
  31 Received: from localhost.localdomain (k335-30.felk.cvut.cz [147.32.86.30])\r
  32         (Authenticated sender: sojkam1)\r
  33         by imap.feld.cvut.cz (Postfix) with ESMTPSA id D1047FA004;\r
  34         Mon,  1 Mar 2010 18:30:04 +0100 (CET)\r
  35 From: Michal Sojka <sojkam1@fel.cvut.cz>\r
  36 To: notmuch@notmuchmail.org\r
  37 Date: Mon,  1 Mar 2010 18:29:48 +0100\r
  38 Message-Id: <1267464588-21050-2-git-send-email-sojkam1@fel.cvut.cz>\r
  39 X-Mailer: git-send-email 1.7.0\r
  40 In-Reply-To: <1267464588-21050-1-git-send-email-sojkam1@fel.cvut.cz>\r
  41 References: <1267464588-21050-1-git-send-email-sojkam1@fel.cvut.cz>\r
  42 Subject: [notmuch] [PATCH 2/2] Emacs code for replying only to sender (bound\r
  43         to 'R' key)\r
  44 X-BeenThere: notmuch@notmuchmail.org\r
  45 X-Mailman-Version: 2.1.13\r
  46 Precedence: list\r
  47 List-Id: "Use and development of the notmuch mail system."\r
  48         <notmuch.notmuchmail.org>\r
  49 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  50         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  51 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  52 List-Post: <mailto:notmuch@notmuchmail.org>\r
  53 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  54 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  55         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  56 X-List-Received-Date: Mon, 01 Mar 2010 17:30:16 -0000\r
  57 \r
  58 This is probably a very stupid implementation. I do not know elisp\r
  59 well, so I appreciate advises on how to avoid code duplication.\r
  60 \r
  61 Signed-off-by: Michal Sojka <sojkam1@fel.cvut.cz>\r
  62 ---\r
  63  notmuch.el |   18 ++++++++++++++++++\r
  64  1 files changed, 18 insertions(+), 0 deletions(-)\r
  65 \r
  66 diff --git a/notmuch.el b/notmuch.el\r
  67 index 6482170..fb567f2 100644\r
  68 --- a/notmuch.el\r
  69 +++ b/notmuch.el\r
  70 @@ -79,6 +79,7 @@\r
  71      (define-key map "m" 'message-mail)\r
  72      (define-key map "f" 'notmuch-show-forward-current)\r
  73      (define-key map "r" 'notmuch-show-reply)\r
  74 +    (define-key map "R" 'notmuch-show-reply-to-sender)\r
  75      (define-key map "|" 'notmuch-show-pipe-message)\r
  76      (define-key map "w" 'notmuch-show-save-attachments)\r
  77      (define-key map "V" 'notmuch-show-view-raw-message)\r
  78 @@ -479,6 +480,23 @@ buffer."\r
  79    (let ((message-id (notmuch-show-get-message-id)))\r
  80      (notmuch-reply message-id)))\r
  81  \r
  82 +(defun notmuch-reply-to-sender (query-string)\r
  83 +  (switch-to-buffer (generate-new-buffer "notmuch-draft"))\r
  84 +  (call-process notmuch-command nil t nil "reply" "--sender-only" query-string)\r
  85 +  (message-insert-signature)\r
  86 +  (goto-char (point-min))\r
  87 +  (if (re-search-forward "^$" nil t)\r
  88 +      (progn\r
  89 +       (insert "--text follows this line--")\r
  90 +       (forward-line)))\r
  91 +  (message-mode))\r
  92 +\r
  93 +(defun notmuch-show-reply-to-sender ()\r
  94 +  "Begin composing a reply to the sender of the current message in a new buffer."\r
  95 +  (interactive)\r
  96 +  (let ((message-id (notmuch-show-get-message-id)))\r
  97 +    (notmuch-reply-to-sender message-id)))\r
  98 +\r
  99  (defun notmuch-show-forward-current ()\r
 100    "Forward the current message."\r
 101    (interactive)\r
 102 -- \r
 103 1.7.0\r
 104 \r