--- /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 272336DE0B25\r
+ for <notmuch@notmuchmail.org>; Mon, 8 Feb 2016 03:34:30 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.685\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.685 tagged_above=-999 required=5 tests=[AWL=0.752, \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 WAgW5YTWB24M for <notmuch@notmuchmail.org>;\r
+ Mon, 8 Feb 2016 03:34:28 -0800 (PST)\r
+Received: from mail-wm0-f44.google.com (mail-wm0-f44.google.com\r
+ [74.125.82.44]) by arlo.cworth.org (Postfix) with ESMTPS id 1D70C6DE0B22 for\r
+ <notmuch@notmuchmail.org>; Mon, 8 Feb 2016 03:34:28 -0800 (PST)\r
+Received: by mail-wm0-f44.google.com with SMTP id c200so11059514wme.0\r
+ for <notmuch@notmuchmail.org>; Mon, 08 Feb 2016 03:34:28 -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=c9o+JR0XKI5jUvSqsU9zuV+yYzhnEa8V0rljVZpfrW0=;\r
+ b=B2pLdwYOXcHStDW1eWVSYL+By5mul3FXWAk8rem22nLfo3MmE16An/M27Ho8I8xZY/\r
+ baYO5Hly/tqD7FpfZv1dulPqxwWULNN2s3NMR9Cu9nuvtxASuSUJCM3Gcw5c/4Q/DgZa\r
+ tADUJdbJvxUjVf8h7Wcg4XCpfVnwnSyPGpWzbXDkzDDN7GBXAru1UhDaCLMXppcwC3KI\r
+ D3wpiyHj6Pfht+QhbrFQ5XqqOSBuqafeJ0mLo1z9G5t2/2kjDQNsWqsitMC6ZaW+3z5D\r
+ B4PDWxWUCwsCFEMsVQ7cc6dGU37bQoylr0kwOW1g4lp92XYueM+QCLb+dXLXU5kQkh3S\r
+ 6tPw==\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=c9o+JR0XKI5jUvSqsU9zuV+yYzhnEa8V0rljVZpfrW0=;\r
+ b=MUMDJGjOzv3n9DA0WJKht8lVblSPwcxgeV34dzimI3WKtsaRX9OMmHV1ss9FQxFDC1\r
+ J16hfNq/DP9B178FDP/djBdpwBD4iwPqR3cFhiVBuwe3jPWmdJ8VyJ9ZO/OgoHYQHOdD\r
+ vpnAwF/w4T+FOMj7N/6nb0HwBeO2PZi3NIBNbAhELo7mxJFu/6T5WcvCj2PcMPUN9vwT\r
+ aDsadSYd5E2SifZ+DSFo322W4EUD35g5K34GJOvW/WlKf55MwE9AYAH7nwjdPa90SA5T\r
+ 04L64JhowISqdeRU9FjfrWGVDApxouNVHWTebgeeLuC9zAlgUNP3xn20ozadWf9ASRaD\r
+ KcsQ==\r
+X-Gm-Message-State:\r
+ AG10YORysX9v2gAeL5iV85/IYxZhC604NhIugJrIgttvOqihEfLAkSPTPcxhHBwk5S6Wjw==\r
+X-Received: by 10.28.32.19 with SMTP id g19mr30626295wmg.98.1454931266838;\r
+ Mon, 08 Feb 2016 03:34:26 -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 t3sm29304900wjz.11.2016.02.08.03.34.25\r
+ for <notmuch@notmuchmail.org>\r
+ (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);\r
+ Mon, 08 Feb 2016 03:34:25 -0800 (PST)\r
+Received: from localhost (disaster-area.hh.sledj.net [local])\r
+ by disaster-area.hh.sledj.net (OpenSMTPD) with ESMTPA id aec18193\r
+ for <notmuch@notmuchmail.org>; Mon, 8 Feb 2016 11:34:22 +0000 (UTC)\r
+From: David Edmondson <dme@dme.org>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH v3 1/2] emacs: Add `notmuch-show-forward-open-messages'.\r
+Date: Mon, 8 Feb 2016 11:34:21 +0000\r
+Message-Id: <1454931262-21362-2-git-send-email-dme@dme.org>\r
+X-Mailer: git-send-email 2.1.4\r
+In-Reply-To: <1454931262-21362-1-git-send-email-dme@dme.org>\r
+References: <1454931262-21362-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: Mon, 08 Feb 2016 11:34:30 -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..4d50d25 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