f5/e464e769abd8096fd48277110629827e3a80a6

   1 Return-Path: <dme@dme.org>\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 AC6D2431E84\r
   6         for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 22:31:51 -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: -0.7\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\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 9xqAbl6VU6rs for <notmuch@notmuchmail.org>;\r
  16         Tue, 24 Jan 2012 22:31:48 -0800 (PST)\r
  17 Received: from mail-ww0-f45.google.com (mail-ww0-f45.google.com\r
  18  [74.125.82.45])        (using TLSv1 with cipher RC4-SHA (128/128 bits))        (No client\r
  19  certificate requested) by olra.theworths.org (Postfix) with ESMTPS id\r
  20  981F5431FB6    for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 22:31:48 -0800\r
  21  (PST)\r
  22 Received: by wgbdt12 with SMTP id dt12so4456525wgb.2\r
  23         for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 22:31:47 -0800 (PST)\r
  24 Received: by 10.180.14.72 with SMTP id n8mr25863631wic.22.1327473107355;\r
  25         Tue, 24 Jan 2012 22:31:47 -0800 (PST)\r
  26 Received: from hotblack-desiato.hh.sledj.net\r
  27         (host81-149-164-25.in-addr.btopenworld.com. [81.149.164.25])\r
  28         by mx.google.com with ESMTPS id eq5sm60265491wib.2.2012.01.24.22.31.45\r
  29         (version=TLSv1/SSLv3 cipher=OTHER);\r
  30         Tue, 24 Jan 2012 22:31:46 -0800 (PST)\r
  31 Received: by hotblack-desiato.hh.sledj.net (Postfix, from userid 30000)\r
  32         id 46F129FD47; Wed, 25 Jan 2012 06:31:44 +0000 (GMT)\r
  33 To: Pieter Praet <pieter@praet.org>\r
  34 Subject: Re: [PATCH] emacs: Add `notmuch-show-stash-gmane' and\r
  35         `notmuch-show-stash-gmane-and-go'.\r
  36 In-Reply-To: <1327452608-8247-1-git-send-email-pieter@praet.org>\r
  37 References: <1327397873-20596-1-git-send-email-dme@dme.org>\r
  38         <1327452608-8247-1-git-send-email-pieter@praet.org>\r
  39 User-Agent: Notmuch/0.11+105~g08b3b0f (http://notmuchmail.org) Emacs/24.0.92.1\r
  40         (x86_64-pc-linux-gnu)\r
  41 From: David Edmondson <dme@dme.org>\r
  42 Date: Wed, 25 Jan 2012 06:31:43 +0000\r
  43 Message-ID: <cunliownvhs.fsf@hotblack-desiato.hh.sledj.net>\r
  44 MIME-Version: 1.0\r
  45 Content-Type: multipart/signed; boundary="=-=-=";\r
  46         micalg=pgp-sha1; protocol="application/pgp-signature"\r
  47 X-Gm-Message-State:\r
  48  ALoCoQl9RUrwfQ9uSB6Tb8G+q1NRDWUJMm0zSZMVYyK61BcQDhsuULmVzbX8W+IfStb5f/iIv1JJ\r
  49 Cc: Notmuch Mail <notmuch@notmuchmail.org>\r
  50 X-BeenThere: notmuch@notmuchmail.org\r
  51 X-Mailman-Version: 2.1.13\r
  52 Precedence: list\r
  53 List-Id: "Use and development of the notmuch mail system."\r
  54         <notmuch.notmuchmail.org>\r
  55 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  56         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  57 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  58 List-Post: <mailto:notmuch@notmuchmail.org>\r
  59 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  60 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  61         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  62 X-List-Received-Date: Wed, 25 Jan 2012 06:31:51 -0000\r
  63 \r
  64 --=-=-=\r
  65 Content-Type: text/plain\r
  66 Content-Transfer-Encoding: quoted-printable\r
  67 \r
  68 On Wed, 25 Jan 2012 01:50:08 +0100, Pieter Praet <pieter@praet.org> wrote:\r
  69 > In a perfect world, everyone would be using Notmuch and have a local\r
  70 > copy of every message ever sent to any ML.  While we're waiting for\r
  71 > Atlantis to resurface, we'll need an interim solution.\r
  72 >=20\r
  73 > +1 for the idea, but Gmane doesn't archive *all* MLs, so we should leave\r
  74 > the user some legroom.  Since I've already made the necessary changes,\r
  75 > I'll just send the patch instead of wasting your time with suggestions.\r
  76 > Feel free to merge it into yours.\r
  77 \r
  78 This is definitely a good idea, but...\r
  79 \r
  80 > Peace\r
  81 >=20\r
  82 > ---\r
  83 >  emacs/notmuch-show.el |   40 ++++++++++++++++++++++++++++++----------\r
  84 >  test/emacs            |    2 +-\r
  85 >  2 files changed, 31 insertions(+), 11 deletions(-)\r
  86 >=20\r
  87 > diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  88 > index c4d45e7..7f209cd 100644\r
  89 > --- a/emacs/notmuch-show.el\r
  90 > +++ b/emacs/notmuch-show.el\r
  91 > @@ -123,6 +123,24 @@ indentation."\r
  92 >                (const :tag "View interactively"\r
  93 >                       notmuch-show-interactively-view-part)))\r
  94 >=20=20\r
  95 > +(defcustom notmuch-show-stash-mlarchive-link-pref "http://mid.gmane.org/"\r
  96 > +  "Default Mailing List Archive to use when stashing links."\r
  97 > +  :group 'notmuch-show\r
  98 > +  ;; TODO: find a working `Message-Id' search arg for all options.\r
  99 > +  :type '(choice (const :tag "Gmane"\r
 100 > +                     "http://mid.gmane.org/")\r
 101 > +              ;; (const :tag "MARC"\r
 102 > +              ;;     "http://marc.info/")\r
 103 > +              (const :tag "Mail Archive, The"\r
 104 > +                     "http://www.mail-archive.com/search?l=3Dmid&q=3D")\r
 105 > +              ;; (const :tag "MarkMail"\r
 106 > +              ;;     "http://markmail.org/")\r
 107 > +              ;; (const :tag "opensubscriber"\r
 108 > +              ;;     "http://opensubscriber.com/")\r
 109 > +              ;; (const :tag "Nabble"\r
 110 > +              ;;     "http://nabble.com/")\r
 111 > +              (string :tag "Custom URI")))\r
 112 \r
 113 ...do we not now how to reference messages by message-id on these other\r
 114 services?\r
 115 \r
 116 Your point about Gmane not having everything applies equally to any\r
 117 service, suggesting that perhaps the user should also have an option to\r
 118 choose which service to use at stash time. Thoughts?\r
 119 \r
 120 > +\r
 121 >  (defmacro with-current-notmuch-show-message (&rest body)\r
 122 >    "Evaluate body with current buffer set to the text of current message"\r
 123 >    `(save-excursion\r
 124 > @@ -1016,8 +1034,8 @@ thread id.  If a prefix is given, crypto processing=\r
 125  is toggled."\r
 126 >      (define-key map "s" 'notmuch-show-stash-subject)\r
 127 >      (define-key map "T" 'notmuch-show-stash-tags)\r
 128 >      (define-key map "t" 'notmuch-show-stash-to)\r
 129 > -    (define-key map "g" 'notmuch-show-stash-gmane)\r
 130 > -    (define-key map "G" 'notmuch-show-stash-gmane-and-go)\r
 131 > +    (define-key map "l" 'notmuch-show-stash-mlarchive-link)\r
 132 > +    (define-key map "L" 'notmuch-show-stash-mlarchive-link-and-go)\r
 133 >      map)\r
 134 >    "Submap for stash commands")\r
 135 >  (fset 'notmuch-show-stash-map notmuch-show-stash-map)\r
 136 > @@ -1605,20 +1623,22 @@ buffer."\r
 137 >    (interactive)\r
 138 >    (notmuch-common-do-stash (notmuch-show-get-to)))\r
 139 >=20=20\r
 140 > -(defun notmuch-show-stash-gmane ()\r
 141 > -  "Copy a Gmane URI for the current message to the kill-ring.\r
 142 > +(defun notmuch-show-stash-mlarchive-link ()\r
 143 > +  "Copy an ML Archive URI for the current message to the kill-ring.\r
 144 >=20=20\r
 145 > -This presumes that the message is available at Gmane."\r
 146 > +This presumes that the message is available at the Mailing List Archive\r
 147 > +configured in `notmuch-show-stash-mlarchive-link-pref'."\r
 148 >    (interactive)\r
 149 > -  (notmuch-common-do-stash (concat "http://mid.gmane.org/"\r
 150 > +  (notmuch-common-do-stash (concat notmuch-show-stash-mlarchive-link-pref\r
 151 >                                  (substring (notmuch-show-get-message-id) 4 -1))))\r
 152 >=20=20\r
 153 > -(defun notmuch-show-stash-gmane-and-go ()\r
 154 > -  "Copy a Gmane URI for the current message to the kill-ring and visit i=\r
 155 t.\r
 156 > +(defun notmuch-show-stash-mlarchive-link-and-go ()\r
 157 > +  "Copy an ML Archive URI for the current message to the kill-ring and v=\r
 158 isit it.\r
 159 >=20=20\r
 160 > -This presumes that the message is available at Gmane."\r
 161 > +This presumes that the message is available at the Mailing List Archive\r
 162 > +configured in `notmuch-show-stash-mlarchive-link-pref'."\r
 163 >    (interactive)\r
 164 > -  (let ((uri (concat "http://mid.gmane.org/"\r
 165 > +  (let ((uri (concat notmuch-show-stash-mlarchive-link-pref\r
 166 >                    (substring (notmuch-show-get-message-id) 4 -1))))\r
 167 >      (notmuch-common-do-stash uri)\r
 168 >      (browse-url uri)))\r
 169 > diff --git a/test/emacs b/test/emacs\r
 170 > index 5f7467d..4e08726 100755\r
 171 > --- a/test/emacs\r
 172 > +++ b/test/emacs\r
 173 > @@ -382,7 +382,7 @@ test_emacs '(notmuch-show "id:\"bought\"")\r
 174 >       (notmuch-show-stash-message-id-stripped)\r
 175 >       (notmuch-show-stash-tags)\r
 176 >       (notmuch-show-stash-filename)\r
 177 > -     (notmuch-show-stash-gmane)\r
 178 > +     (notmuch-show-stash-mlarchive-link)\r
 179 >       (switch-to-buffer\r
 180 >         (generate-new-buffer "*test-stashing*"))\r
 181 >       (dotimes (i 10)\r
 182 > --=20\r
 183 > 1.7.8.1\r
 184 >=20\r
 185 \r
 186 --=-=-=\r
 187 Content-Type: application/pgp-signature\r
 188 \r
 189 -----BEGIN PGP SIGNATURE-----\r
 190 Version: GnuPG v1.4.11 (GNU/Linux)\r
 191 \r
 192 iEYEARECAAYFAk8fodAACgkQaezQq/BJZRbGFgCgifUa9EZHlGu6Y0h0vZKcpjL6\r
 193 FJcAnifPpAPRQpsUHz8///RYlVN5qEIp\r
 194 =Q42I\r
 195 -----END PGP SIGNATURE-----\r
 196 --=-=-=--\r