--- /dev/null
+Return-Path: <dme@dme.org>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+ by arlo.cworth.org (Postfix) with ESMTP id F1BA76DE0B25\r
+ for <notmuch@notmuchmail.org>; Sat, 6 Feb 2016 13:08:05 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.86\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.86 tagged_above=-999 required=5 tests=[AWL=0.927,\r
+ DKIM_SIGNED=0.1, DKIM_VALID=-0.1, RCVD_IN_DNSWL_LOW=-0.7,\r
+ RCVD_IN_MSPIKE_H3=-0.01, RCVD_IN_MSPIKE_WL=-0.01, SPF_NEUTRAL=0.652,\r
+ UNPARSEABLE_RELAY=0.001] autolearn=disabled\r
+Received: from arlo.cworth.org ([127.0.0.1])\r
+ by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
+ with ESMTP id buWQRkWQwhe0 for <notmuch@notmuchmail.org>;\r
+ Sat, 6 Feb 2016 13:08:03 -0800 (PST)\r
+Received: from mail-wm0-f45.google.com (mail-wm0-f45.google.com\r
+ [74.125.82.45]) by arlo.cworth.org (Postfix) with ESMTPS id 7004C6DE09ED for\r
+ <notmuch@notmuchmail.org>; Sat, 6 Feb 2016 13:08:03 -0800 (PST)\r
+Received: by mail-wm0-f45.google.com with SMTP id g62so70083658wme.0\r
+ for <notmuch@notmuchmail.org>; Sat, 06 Feb 2016 13:08:03 -0800 (PST)\r
+DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;\r
+ d=dme-org.20150623.gappssmtp.com; s=20150623;\r
+ h=from:to:subject:date:message-id:in-reply-to:references;\r
+ bh=7p3ufQXjlDwLNzox++RAkNzH/ySW2+srx60RBLJFVLM=;\r
+ b=cWrzPHKPzDYzYSpCdk11INHKUFp505G3llR/23UKoJZOLgTwHRs/TNPRVUXvJgt+Mx\r
+ LziJNHXpp64LFNvdewC3cNG36QV1n2kvc+9fl4IIyk8tuMk86YX8yloDeshGTdvGNZ2k\r
+ VbM7wh9p4uwJLcjVlGSCNr9iU5sLYAh/OcPG+9A4b8O3YT+HlXFSiOMIICfsnjOBoU7m\r
+ BsI8ARYRy8V3JeKc2iLOHuHGEC2F4iMT9MjJousS7yoBIy8naF5VfZBXDFSwB2P16NYa\r
+ 7EjV2+vYCB5waRohtLqdIMutgYLrRWH/Lv7a9RnQRxMQ8NOgRbDmYedzTE3kPQfF7COy\r
+ d/xw==\r
+X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;\r
+ d=1e100.net; s=20130820;\r
+ h=x-gm-message-state:from:to:subject:date:message-id:in-reply-to\r
+ :references;\r
+ bh=7p3ufQXjlDwLNzox++RAkNzH/ySW2+srx60RBLJFVLM=;\r
+ b=HgPhSDwuoqgOYtgAd9a1oCRJA/XDKQZHrc/CHHR3Dk7WecRzcbjcYPpML1rA507xHU\r
+ fyvwPvnLfSt0DAycZdZAh3zVFH+SVJhpM6SqMyxdi1RH4yhCaPlArTCaoyRuOvZetS4U\r
+ mp6H3Tfpmqs3JzRAtRdC61o8rAEdeXxdaN+1E/9GzyZIW5c9BrZy57uUMYhAzpq0sz+d\r
+ 0yGtOznCOf69Zzx1GguyZIoILZyLvukcOxCJBx+GuQ0Gc6+QkNaiLyMJfgujWXIuJ74T\r
+ ubQataYKZkC5e1FMLEBII9oUUliHfkbRqis9K6OlMagQDPBMcWPFzORwCmjFueG7H7b9\r
+ Y/9w==\r
+X-Gm-Message-State:\r
+ AG10YOS05msXDZ6bJ03WkBsW4dbkbQbZ14cnT4mXtZzDqlcxZ6si0JWKUG8C0bXr/MMaSQ==\r
+X-Received: by 10.28.218.78 with SMTP id r75mr44647558wmg.7.1454792881801;\r
+ Sat, 06 Feb 2016 13:08:01 -0800 (PST)\r
+Received: from disaster-area.hh.sledj.net (disaster-area.hh.sledj.net.\r
+ [81.149.164.25])\r
+ by smtp.gmail.com with ESMTPSA id l7sm22000005wjx.14.2016.02.06.13.08.00\r
+ for <notmuch@notmuchmail.org>\r
+ (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);\r
+ Sat, 06 Feb 2016 13:08:00 -0800 (PST)\r
+Received: from localhost (disaster-area.hh.sledj.net [local])\r
+ by disaster-area.hh.sledj.net (OpenSMTPD) with ESMTPA id 53785319\r
+ for <notmuch@notmuchmail.org>; Sat, 6 Feb 2016 21:07:57 +0000 (UTC)\r
+From: David Edmondson <dme@dme.org>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH v2 1/2] emacs: Add `notmuch-show-forward-open-messages'.\r
+Date: Sat, 6 Feb 2016 21:07:56 +0000\r
+Message-Id: <1454792877-7180-2-git-send-email-dme@dme.org>\r
+X-Mailer: git-send-email 2.1.4\r
+In-Reply-To: <1454792877-7180-1-git-send-email-dme@dme.org>\r
+References: <1454792877-7180-1-git-send-email-dme@dme.org>\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.20\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+ <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <https://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: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Sat, 06 Feb 2016 21:08:06 -0000\r
+\r
+Add a function to forward all open messages in the current view of a\r
+thread. Bind this to "F".\r
+---\r
+ emacs/notmuch-mua.el | 48 ++++++++++++++++++++++++++++++++++++++++++++++++\r
+ emacs/notmuch-show.el | 11 +++++++++++\r
+ 2 files changed, 59 insertions(+)\r
+\r
+diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
+index 5462f54..be2967f 100644\r
+--- a/emacs/notmuch-mua.el\r
++++ b/emacs/notmuch-mua.el\r
+@@ -425,6 +425,54 @@ the From: address first."\r
+ (message-hide-headers)\r
+ (set-buffer-modified-p nil)))\r
+ \r
++(defun notmuch-mua-new-forward-messages (messages &optional prompt-for-sender)\r
++ "Compose a new message forwarding MESSAGES.\r
++\r
++If PROMPT-FOR-SENDER is non-nil, the user will be prompteed for\r
++the From: address."\r
++ (let* ((other-headers\r
++ (when (or prompt-for-sender notmuch-always-prompt-for-sender)\r
++ (list (cons 'From (notmuch-mua-prompt-for-sender)))))\r
++ forward-subject) ;; Comes from the first message and is\r
++ ;; applied later.\r
++\r
++ ;; Generate the template for the outgoing message.\r
++ (notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function))\r
++\r
++ (save-excursion\r
++ ;; Insert all of the forwarded messages.\r
++ (mapc (lambda (id)\r
++ (let ((temp-buffer (get-buffer-create\r
++ (concat "*notmuch-fwd-raw-" id "*"))))\r
++ ;; Get the raw version of this message in the buffer.\r
++ (with-current-buffer temp-buffer\r
++ (erase-buffer)\r
++ (let ((coding-system-for-read 'no-conversion))\r
++ (call-process notmuch-command nil t nil "show" "--format=raw" id))\r
++ ;; Because we process the messages in reverse order,\r
++ ;; always generate a forwarded subject, then use the\r
++ ;; last (i.e. first) one.\r
++ (setq forward-subject (message-make-forward-subject)))\r
++ ;; Make a copy ready to be forwarded in the\r
++ ;; composition buffer.\r
++ (message-forward-make-body temp-buffer)\r
++ ;; Kill the temporary buffer.\r
++ (kill-buffer temp-buffer)))\r
++ ;; `message-forward-make-body' always puts the message at\r
++ ;; the top, so do them in reverse order.\r
++ (reverse messages))\r
++\r
++ ;; Add in the appropriate subject.\r
++ (save-restriction\r
++ (message-narrow-to-headers)\r
++ (message-remove-header "Subject")\r
++ (message-add-header (concat "Subject: " forward-subject)))\r
++\r
++ ;; `message-forward-make-body' shows the User-agent header. Hide\r
++ ;; it again.\r
++ (message-hide-headers)\r
++ (set-buffer-modified-p nil))))))\r
++\r
+ (defun notmuch-mua-new-reply (query-string &optional prompt-for-sender reply-all)\r
+ "Compose a reply to the message identified by QUERY-STRING.\r
+ \r
+diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
+index 3345878..a8c6f1e 100644\r
+--- a/emacs/notmuch-show.el\r
++++ b/emacs/notmuch-show.el\r
+@@ -1371,6 +1371,7 @@ reset based on the original query."\r
+ (define-key map (kbd "<backtab>") 'notmuch-show-previous-button)\r
+ (define-key map (kbd "TAB") 'notmuch-show-next-button)\r
+ (define-key map "f" 'notmuch-show-forward-message)\r
++ (define-key map "F" 'notmuch-show-forward-open-messages)\r
+ (define-key map "l" 'notmuch-show-filter-thread)\r
+ (define-key map "r" 'notmuch-show-reply-sender)\r
+ (define-key map "R" 'notmuch-show-reply)\r
+@@ -1798,6 +1799,16 @@ any effects from previous calls to\r
+ (with-current-notmuch-show-message\r
+ (notmuch-mua-new-forward-message prompt-for-sender)))\r
+ \r
++(put 'notmuch-show-forward-open-messages 'notmuch-prefix-doc\r
++ "... and prompt for sender")\r
++(defun notmuch-show-forward-open-messages (&optional prompt-for-sender)\r
++ "Forward the currently open messages."\r
++ (interactive "P")\r
++ (let ((open-messages (notmuch-show-get-message-ids-for-open-messages)))\r
++ (unless open-messages\r
++ (error "No open messages to forward."))\r
++ (notmuch-mua-new-forward-messages open-messages prompt-for-sender)))\r
++\r
+ (defun notmuch-show-next-message (&optional pop-at-end)\r
+ "Show the next message.\r
+ \r
+-- \r
+2.1.4\r
+\r
projects / notmuch-archives.git / commitdiff