From 7fa7e9d34ae658a814a152b267c142569144b7fe Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Sat, 6 Feb 2016 19:24:19 +0000 Subject: [PATCH] [PATCH v1] emacs: Add `notmuch-show-forward-open-messages'. --- 08/adbe2df6d526507a3612bc19980b564e056195 | 177 ++++++++++++++++++++++ 1 file changed, 177 insertions(+) create mode 100644 08/adbe2df6d526507a3612bc19980b564e056195 diff --git a/08/adbe2df6d526507a3612bc19980b564e056195 b/08/adbe2df6d526507a3612bc19980b564e056195 new file mode 100644 index 000000000..4000b2ef1 --- /dev/null +++ b/08/adbe2df6d526507a3612bc19980b564e056195 @@ -0,0 +1,177 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by arlo.cworth.org (Postfix) with ESMTP id D5EB76DE09ED + for ; Sat, 6 Feb 2016 11:24:27 -0800 (PST) +X-Virus-Scanned: Debian amavisd-new at cworth.org +X-Spam-Flag: NO +X-Spam-Score: 0.171 +X-Spam-Level: +X-Spam-Status: No, score=0.171 tagged_above=-999 required=5 tests=[AWL=0.238, + DKIM_SIGNED=0.1, DKIM_VALID=-0.1, RCVD_IN_DNSWL_LOW=-0.7, + RCVD_IN_MSPIKE_H3=-0.01, RCVD_IN_MSPIKE_WL=-0.01, SPF_NEUTRAL=0.652, + UNPARSEABLE_RELAY=0.001] autolearn=disabled +Received: from arlo.cworth.org ([127.0.0.1]) + by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id dBC6hnANEcRa for ; + Sat, 6 Feb 2016 11:24:25 -0800 (PST) +Received: from mail-wm0-f66.google.com (mail-wm0-f66.google.com + [74.125.82.66]) by arlo.cworth.org (Postfix) with ESMTPS id 623166DE0B25 for + ; Sat, 6 Feb 2016 11:24:25 -0800 (PST) +Received: by mail-wm0-f66.google.com with SMTP id 128so8517430wmz.3 + for ; Sat, 06 Feb 2016 11:24:25 -0800 (PST) +DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; + d=dme-org.20150623.gappssmtp.com; s=20150623; + h=from:to:subject:date:message-id:in-reply-to:references; + bh=7p3ufQXjlDwLNzox++RAkNzH/ySW2+srx60RBLJFVLM=; + b=uKSodKKCNE9YzoFPo1Fvqi6lpS5Yu7lVNL15jo9XsBfzHu3hw2YjnkAFDdQ8GLJsYh + fUWP/3TgcKvVCdgvEflgdURZ8pnCWiunrSWQmSv3hOG0PbO0qV3T7wcQFNP3Z3VUKxO3 + XeguE1oePJpK4cO+kFfCrSlbU2TAHfX37mjrhzGJoNmzdj58kwRm5DGj222Vrgk03SDo + 4gix6dU5TLc7R/0BL3Klk5nxTtqoy/qgspeOV35ql1S6LvkNh0XIFeZnxex2TcCbgVor + wbsuAenVPXdkWi6o9PyUO5rHUukAcRuKHNThoj2VamtBYq6o7c1P0ZlfPGl67cOJPmtm + tsZg== +X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; + d=1e100.net; s=20130820; + h=x-gm-message-state:from:to:subject:date:message-id:in-reply-to + :references; + bh=7p3ufQXjlDwLNzox++RAkNzH/ySW2+srx60RBLJFVLM=; + b=gVc3ie/hYZAh6tBdfgx2WDMZ5lgXWckzDqq9rIgyuj0xQGNQ0DgG3hNCu7Eez1sH3m + dJGzT6T06QrkfnG49MBOmZvOlMYiuXd4/Wk7MWirB40E3u1viRZL9tZ49t3Cecu4yx1T + Oedw8oA/JXrvHMhbKD9Yyu6YtIAfHdd2ocJV54NNR5RaS8Fw0JXcRf456aut1zPneYmv + hmx3wshhtsIyr/6MEI+ZqIzoQFgsaPXfyUlkRGDGy0bvrwSo39dB7TiqWjONKvYedXKV + aAh0LM9A4hoT+W3s5bZx08UT0oGkDMuxMhaY2dymuAzejQjSdsdoNZvdMWXizvjoVvE2 + mtOg== +X-Gm-Message-State: + AG10YOQLGimfu5e4gyaM2yL39WsvF7qgV4uVyV2Y+tYuuXNQ29U5pWO9WeMPUa1mCH6ZPw== +X-Received: by 10.28.9.71 with SMTP id 68mr22323709wmj.33.1454786663702; + Sat, 06 Feb 2016 11:24:23 -0800 (PST) +Received: from disaster-area.hh.sledj.net + ([2a01:348:1a2:1:ea39:35ff:fe2c:a227]) + by smtp.gmail.com with ESMTPSA id q75sm4510195wmd.6.2016.02.06.11.24.22 + for + (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); + Sat, 06 Feb 2016 11:24:22 -0800 (PST) +Received: from localhost (disaster-area.hh.sledj.net [local]) + by disaster-area.hh.sledj.net (OpenSMTPD) with ESMTPA id 867e8815 + for ; Sat, 6 Feb 2016 19:24:19 +0000 (UTC) +From: David Edmondson +To: notmuch@notmuchmail.org +Subject: [PATCH v1] emacs: Add `notmuch-show-forward-open-messages'. +Date: Sat, 6 Feb 2016 19:24:19 +0000 +Message-Id: <1454786659-3615-2-git-send-email-dme@dme.org> +X-Mailer: git-send-email 2.1.4 +In-Reply-To: <1454786659-3615-1-git-send-email-dme@dme.org> +References: <1454786659-3615-1-git-send-email-dme@dme.org> +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.20 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Sat, 06 Feb 2016 19:24:28 -0000 + +Add a function to forward all open messages in the current view of a +thread. Bind this to "F". +--- + emacs/notmuch-mua.el | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ + emacs/notmuch-show.el | 11 +++++++++++ + 2 files changed, 59 insertions(+) + +diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el +index 5462f54..be2967f 100644 +--- a/emacs/notmuch-mua.el ++++ b/emacs/notmuch-mua.el +@@ -425,6 +425,54 @@ the From: address first." + (message-hide-headers) + (set-buffer-modified-p nil))) + ++(defun notmuch-mua-new-forward-messages (messages &optional prompt-for-sender) ++ "Compose a new message forwarding MESSAGES. ++ ++If PROMPT-FOR-SENDER is non-nil, the user will be prompteed for ++the From: address." ++ (let* ((other-headers ++ (when (or prompt-for-sender notmuch-always-prompt-for-sender) ++ (list (cons 'From (notmuch-mua-prompt-for-sender))))) ++ forward-subject) ;; Comes from the first message and is ++ ;; applied later. ++ ++ ;; Generate the template for the outgoing message. ++ (notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function)) ++ ++ (save-excursion ++ ;; Insert all of the forwarded messages. ++ (mapc (lambda (id) ++ (let ((temp-buffer (get-buffer-create ++ (concat "*notmuch-fwd-raw-" id "*")))) ++ ;; Get the raw version of this message in the buffer. ++ (with-current-buffer temp-buffer ++ (erase-buffer) ++ (let ((coding-system-for-read 'no-conversion)) ++ (call-process notmuch-command nil t nil "show" "--format=raw" id)) ++ ;; Because we process the messages in reverse order, ++ ;; always generate a forwarded subject, then use the ++ ;; last (i.e. first) one. ++ (setq forward-subject (message-make-forward-subject))) ++ ;; Make a copy ready to be forwarded in the ++ ;; composition buffer. ++ (message-forward-make-body temp-buffer) ++ ;; Kill the temporary buffer. ++ (kill-buffer temp-buffer))) ++ ;; `message-forward-make-body' always puts the message at ++ ;; the top, so do them in reverse order. ++ (reverse messages)) ++ ++ ;; Add in the appropriate subject. ++ (save-restriction ++ (message-narrow-to-headers) ++ (message-remove-header "Subject") ++ (message-add-header (concat "Subject: " forward-subject))) ++ ++ ;; `message-forward-make-body' shows the User-agent header. Hide ++ ;; it again. ++ (message-hide-headers) ++ (set-buffer-modified-p nil)))))) ++ + (defun notmuch-mua-new-reply (query-string &optional prompt-for-sender reply-all) + "Compose a reply to the message identified by QUERY-STRING. + +diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el +index 3345878..a8c6f1e 100644 +--- a/emacs/notmuch-show.el ++++ b/emacs/notmuch-show.el +@@ -1371,6 +1371,7 @@ reset based on the original query." + (define-key map (kbd "") 'notmuch-show-previous-button) + (define-key map (kbd "TAB") 'notmuch-show-next-button) + (define-key map "f" 'notmuch-show-forward-message) ++ (define-key map "F" 'notmuch-show-forward-open-messages) + (define-key map "l" 'notmuch-show-filter-thread) + (define-key map "r" 'notmuch-show-reply-sender) + (define-key map "R" 'notmuch-show-reply) +@@ -1798,6 +1799,16 @@ any effects from previous calls to + (with-current-notmuch-show-message + (notmuch-mua-new-forward-message prompt-for-sender))) + ++(put 'notmuch-show-forward-open-messages 'notmuch-prefix-doc ++ "... and prompt for sender") ++(defun notmuch-show-forward-open-messages (&optional prompt-for-sender) ++ "Forward the currently open messages." ++ (interactive "P") ++ (let ((open-messages (notmuch-show-get-message-ids-for-open-messages))) ++ (unless open-messages ++ (error "No open messages to forward.")) ++ (notmuch-mua-new-forward-messages open-messages prompt-for-sender))) ++ + (defun notmuch-show-next-message (&optional pop-at-end) + "Show the next message. + +-- +2.1.4 + -- 2.26.2