Re: [PATCH] quoting message-IDs for the shell

diff --git a/ad/2977b8d82cd1064a99375857a497512e6fd20a b/ad/2977b8d82cd1064a99375857a497512e6fd20a
new file mode 100644 (file)
index 0000000..add00aa
--- /dev/null
+++ b/ad/2977b8d82cd1064a99375857a497512e6fd20a
@@ -0,0 +1,82 @@
+Return-Path: <davidben@mit.edu>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 4B3904196F0\r
+       for <notmuch@notmuchmail.org>; Sat, 29 May 2010 11:02:03 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -0.001\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-0.001 tagged_above=-999 required=5\r
+       tests=[BAYES_20=-0.001] autolearn=ham\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id Ff1WDL4X4dNB for <notmuch@notmuchmail.org>;\r
+       Sat, 29 May 2010 11:01:53 -0700 (PDT)\r
+Received: from dmz-mailsec-scanner-3.mit.edu (DMZ-MAILSEC-SCANNER-3.MIT.EDU\r
+       [18.9.25.14])\r
+       by olra.theworths.org (Postfix) with ESMTP id 1D82C431FC1\r
+       for <notmuch@notmuchmail.org>; Sat, 29 May 2010 11:01:53 -0700 (PDT)\r
+X-AuditID: 1209190e-b7b82ae000005260-8f-4c01568f6648\r
+Received: from mailhub-auth-4.mit.edu (MAILHUB-AUTH-4.MIT.EDU [18.7.62.39])\r
+       by dmz-mailsec-scanner-3.mit.edu (Symantec Brightmail Gateway) with\r
+       SMTP id E9.72.21088.F86510C4; Sat, 29 May 2010 14:01:51 -0400 (EDT)\r
+Received: from outgoing.mit.edu (OUTGOING-AUTH.MIT.EDU [18.7.22.103])\r
+       by mailhub-auth-4.mit.edu (8.13.8/8.9.2) with ESMTP id o4TI1ovS030186; \r
+       Sat, 29 May 2010 14:01:51 -0400\r
+Received: from localhost (DR-WILY.MIT.EDU [18.181.0.233])\r
+       (authenticated bits=0)\r
+       (User authenticated as davidben@ATHENA.MIT.EDU)\r
+       by outgoing.mit.edu (8.13.6/8.12.4) with ESMTP id o4TI1nIQ011736;\r
+       Sat, 29 May 2010 14:01:50 -0400 (EDT)\r
+Date: Sat, 29 May 2010 14:01:49 -0400 (EDT)\r
+From: David A Benjamin <davidben@MIT.EDU>\r
+To: Christopher League <league@contrapunctus.net>\r
+Subject: Re: [PATCH] quoting message-IDs for the shell\r
+In-Reply-To: <87bpbztwcy.fsf@contrapunctus.net>\r
+Message-ID: <alpine.DEB.1.10.1005291354320.29237@dr-wily.mit.edu>\r
+References: <87bpbztwcy.fsf@contrapunctus.net>\r
+User-Agent: Alpine 1.10 (DEB 962 2008-03-14)\r
+MIME-Version: 1.0\r
+Content-Type: TEXT/PLAIN; charset=US-ASCII; format=flowed\r
+X-Brightmail-Tracker: AAAAARRlSuo=\r
+Cc: notmuch@notmuchmail.org\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Sat, 29 May 2010 18:02:03 -0000\r
+\r
+On Fri, 28 May 2010, Christopher League wrote:\r
+\r
+> @@ -915,7 +919,7 @@ to stdout or stderr will appear in the *Messages* buffer."\r
+>   (apply 'notmuch-call-notmuch-process\r
+>       (append (cons "tag"\r
+>                     (mapcar (lambda (s) (concat "+" s)) toadd))\r
+> -             (cons (notmuch-show-get-message-id) nil)))\r
+> +             (cons (notmuch-show-quoted-message-id) nil)))\r
+>   (notmuch-show-set-tags (sort (union toadd (notmuch-show-get-tags) :test 'string=) 'string<)))\r
+>\r
+> (defun notmuch-show-remove-tag (&rest toremove)\r
+> @@ -929,7 +933,7 @@ to stdout or stderr will appear in the *Messages* buffer."\r
+>        (apply 'notmuch-call-notmuch-process\r
+>               (append (cons "tag"\r
+>                             (mapcar (lambda (s) (concat "-" s)) toremove))\r
+> -                     (cons (notmuch-show-get-message-id) nil)))\r
+> +                     (cons (notmuch-show-quoted-message-id) nil)))\r
+>        (notmuch-show-set-tags (sort (set-difference tags toremove :test 'string=) 'string<))))))\r
+>\r
+\r
+Hrm. Are you sure? notmuch-call-notmuch-process is implemented using \r
+call-process, which doesn't seem to invoke the shell.\r
+\r
+David Benjamin\r