a4/df2d062aa6a12554e185f3bc456de158543239

   1 Return-Path: <markwalters1009@gmail.com>\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 arlo.cworth.org (Postfix) with ESMTP id 9992A6DE13EF\r
   6  for <notmuch@notmuchmail.org>; Wed, 28 Oct 2015 01:00:22 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at cworth.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -1.393\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-1.393 tagged_above=-999 required=5\r
  12  tests=[AWL=-0.823, DKIM_SIGNED=0.1, DKIM_VALID=-0.1,\r
  13  DKIM_VALID_AU=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25,\r
  14  FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=-0.01,\r
  15  RCVD_IN_MSPIKE_WL=-0.01, SPF_PASS=-0.001] autolearn=disabled\r
  16 Received: from arlo.cworth.org ([127.0.0.1])\r
  17  by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
  18  with ESMTP id 5MvA-_LK0tAn for <notmuch@notmuchmail.org>;\r
  19  Wed, 28 Oct 2015 01:00:20 -0700 (PDT)\r
  20 Received: from mail-wi0-f180.google.com (mail-wi0-f180.google.com\r
  21  [209.85.212.180])\r
  22  by arlo.cworth.org (Postfix) with ESMTPS id 858BD6DE0B44\r
  23  for <notmuch@notmuchmail.org>; Wed, 28 Oct 2015 01:00:19 -0700 (PDT)\r
  24 Received: by wicll6 with SMTP id ll6so188737292wic.0\r
  25  for <notmuch@notmuchmail.org>; Wed, 28 Oct 2015 01:00:17 -0700 (PDT)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;\r
  27  h=from:to:cc:subject:in-reply-to:references:user-agent:date\r
  28  :message-id:mime-version:content-type;\r
  29  bh=YETvpa/GYLvIHit0pS+LWi4FQ4SEw+vGZjJsdLXsz5A=;\r
  30  b=Ecbt/CTb9azyPhaF/TYOjo+g7bninW1k46SLKeibwc5QClxsWg7riNy0Avj+Aaz5Ea\r
  31  KkFy4bto+gwcCme3igybFwJ93cRaz/NMgV/j4ZP0Fh5qXwat0VMUYm9rulEaxx/jt83u\r
  32  EO2LjJCzpELQ6R/kCrLaf96irNFu/rsM4ZGhmHq8ivCIChthg9TuMIm6p2Qbqba354Ae\r
  33  I3/P0b/C5f+mq9mAcyR57rSPAPStiTamMFKpcpc6nY5vf5lDTyqOjlN1PHFHtHoOKS7s\r
  34  hrWgGovsNL2cZxtX36aIfrjOntNAfgflUYjHdxTbey3p1Q4xfoTUhuySvZOW2Tj2N1if\r
  35  2HFA==\r
  36 X-Received: by 10.180.210.234 with SMTP id mx10mr1397018wic.31.1446019217719; \r
  37  Wed, 28 Oct 2015 01:00:17 -0700 (PDT)\r
  38 Received: from localhost (188.30.196.178.threembb.co.uk. [188.30.196.178])\r
  39  by smtp.gmail.com with ESMTPSA id jf13sm20404233wic.8.2015.10.28.01.00.13\r
  40  (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);\r
  41  Wed, 28 Oct 2015 01:00:17 -0700 (PDT)\r
  42 From: Mark Walters <markwalters1009@gmail.com>\r
  43 To: Tomi Ollila <tomi.ollila@iki.fi>, notmuch@notmuchmail.org\r
  44 Cc: tomi.ollila@iki.fi\r
  45 Subject: Re: [PATCH 3/4] emacs: add function to resend message to new\r
  46  recipients\r
  47 In-Reply-To: <1441204482-26509-3-git-send-email-tomi.ollila@iki.fi>\r
  48 References: <1441204482-26509-1-git-send-email-tomi.ollila@iki.fi>\r
  49  <1441204482-26509-3-git-send-email-tomi.ollila@iki.fi>\r
  50 User-Agent: Notmuch/0.18+469~gb743c48 (http://notmuchmail.org) Emacs/23.4.1\r
  51  (x86_64-pc-linux-gnu)\r
  52 Date: Wed, 28 Oct 2015 08:00:11 +0000\r
  53 Message-ID: <87pozza0dw.fsf@qmul.ac.uk>\r
  54 MIME-Version: 1.0\r
  55 Content-Type: text/plain; charset=us-ascii\r
  56 X-BeenThere: notmuch@notmuchmail.org\r
  57 X-Mailman-Version: 2.1.20\r
  58 Precedence: list\r
  59 List-Id: "Use and development of the notmuch mail system."\r
  60  <notmuch.notmuchmail.org>\r
  61 List-Unsubscribe: <https://notmuchmail.org/mailman/options/notmuch>,\r
  62  <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  63 List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
  64 List-Post: <mailto:notmuch@notmuchmail.org>\r
  65 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  66 List-Subscribe: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
  67  <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  68 X-List-Received-Date: Wed, 28 Oct 2015 08:00:22 -0000\r
  69 \r
  70 \r
  71 On Wed, 02 Sep 2015, Tomi Ollila <tomi.ollila@iki.fi> wrote:\r
  72 > The new function notmuch-show-message-resend re-sends\r
  73 > message to new recipients using #'message-resend.\r
  74 >\r
  75 > Recipients are read from minibuffer as a comma-separated\r
  76 > string (with some keyboard support including tab completion).\r
  77 >\r
  78 > Final confirmation before sending is asked.\r
  79 > ---\r
  80 \r
  81 This series looks good to me modulo three minor comments  (I even\r
  82 like the choice of binding to b). \r
  83 \r
  84 The first comment is that, in light of the recent address series, I\r
  85 think Patch 2 can be dropped completely, with a small change to this\r
  86 patch. See below for that, and the other two minor suggestions.\r
  87 \r
  88 Also, I wonder if when it gets a NEWS item it might be worth mentioning\r
  89 that a user might have already added this function to their emacs init\r
  90 file as it has been on the wiki. (It took me way too long to realise\r
  91 that was why this patch was not working for me!)\r
  92 \r
  93 Best wishes\r
  94 \r
  95 Mark\r
  96 \r
  97 \r
  98 >\r
  99 > Since id:1440619626-18768-2-git-send-email-tomi.ollila@iki.fi\r
 100 >   - changed (bury-buffer) to (notmuch-bury-or-kill-this-buffer)\r
 101 >     - it is hard to have the buffer been kept around but it is posiible\r
 102 >\r
 103 >  emacs/notmuch-address.el | 19 +++++++++++++++++++\r
 104 >  emacs/notmuch-show.el    |  8 ++++++++\r
 105 >  2 files changed, 27 insertions(+)\r
 106 >\r
 107 > diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el\r
 108 > index 8982a415ce11..83788efd3c1b 100644\r
 109 > --- a/emacs/notmuch-address.el\r
 110 > +++ b/emacs/notmuch-address.el\r
 111 > @@ -119,4 +119,23 @@ (defun notmuch-address-locate-command (command)\r
 112 >  \r
 113 >  ;;\r
 114 >  \r
 115 > +(defun notmuch-address-from-minibuffer (prompt)\r
 116 > +  (if (not (notmuch-address--message-insinuated))\r
 117 > +      (read-string prompt)\r
 118 \r
 119 This can become \r
 120      (if (not notmuch-address-command)\r
 121  \r
 122 > +    (let ((rmap (copy-keymap minibuffer-local-map))\r
 123 > +       (omap minibuffer-local-map))\r
 124 > +      ;; Configure TAB to start completion when executing read-string.\r
 125 > +      ;; "Original" minibuffer keymap is restored just before calling\r
 126 > +      ;; notmuch-address-expand-name as it may also use minibuffer-local-map\r
 127 > +      ;; (completing-read probably does not but if something else is used there).\r
 128 > +      (define-key rmap "\C-i" (lambda () ;; TAB\r
 129 \r
 130 I think this could become (define-key rmap (kbd "TAB") (lambda () ....\r
 131 \r
 132 which is easy to read and consistent with the definitions of other\r
 133 keymaps (eg the main notmuch-show keymap).\r
 134 \r
 135 > +                            (interactive)\r
 136 > +                            (let ((enable-recursive-minibuffers t)\r
 137 > +                                  (minibuffer-local-map omap))\r
 138 > +                              (notmuch-address-expand-name))))\r
 139 > +      (let ((minibuffer-local-map rmap))\r
 140 > +     (read-string prompt)))))\r
 141 > +\r
 142 > +;;\r
 143 > +\r
 144 >  (provide 'notmuch-address)\r
 145 > diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
 146 > index 0565ab0725b2..046cb0e41f0b 100644\r
 147 > --- a/emacs/notmuch-show.el\r
 148 > +++ b/emacs/notmuch-show.el\r
 149 > @@ -1806,6 +1806,14 @@ (defun notmuch-show-forward-message (&optional prompt-for-sender)\r
 150 >    (with-current-notmuch-show-message\r
 151 >     (notmuch-mua-new-forward-message prompt-for-sender)))\r
 152 >  \r
 153 > +(defun notmuch-show-resend-message (addresses)\r
 154 > +  "Resend the current message."\r
 155 > +  (interactive (list (notmuch-address-from-minibuffer "Resend to: ")))\r
 156 > +  (when (yes-or-no-p (concat "Confirm resend to " addresses " "))\r
 157 \r
 158 Perhaps y-or-n-p rather than yes-or-no-p?\r
 159  \r
 160 > +    (notmuch-show-view-raw-message)\r
 161 > +    (message-resend addresses)\r
 162 > +    (notmuch-bury-or-kill-this-buffer)))\r
 163 > +\r
 164 >  (defun notmuch-show-next-message (&optional pop-at-end)\r
 165 >    "Show the next message.\r
 166 >  \r
 167 > -- \r
 168 > 2.0.0\r
 169 >\r
 170 > _______________________________________________\r
 171 > notmuch mailing list\r
 172 > notmuch@notmuchmail.org\r
 173 > http://notmuchmail.org/mailman/listinfo/notmuch\r