From: David Edmondson Date: Sat, 6 Feb 2016 21:07:56 +0000 (+0000) Subject: [PATCH v2 1/2] emacs: Add `notmuch-show-forward-open-messages'. X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=9db59cdeee1b9a9a79eed3124ddda7654185c714;p=notmuch-archives.git [PATCH v2 1/2] emacs: Add `notmuch-show-forward-open-messages'. --- diff --git a/e8/a4f4d102bc958bdba5751b62c1768e9636c3a8 b/e8/a4f4d102bc958bdba5751b62c1768e9636c3a8 new file mode 100644 index 000000000..60fe33f60 --- /dev/null +++ b/e8/a4f4d102bc958bdba5751b62c1768e9636c3a8 @@ -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 F1BA76DE0B25 + for ; Sat, 6 Feb 2016 13:08:05 -0800 (PST) +X-Virus-Scanned: Debian amavisd-new at cworth.org +X-Spam-Flag: NO +X-Spam-Score: 0.86 +X-Spam-Level: +X-Spam-Status: No, score=0.86 tagged_above=-999 required=5 tests=[AWL=0.927, + 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 buWQRkWQwhe0 for ; + Sat, 6 Feb 2016 13:08:03 -0800 (PST) +Received: from mail-wm0-f45.google.com (mail-wm0-f45.google.com + [74.125.82.45]) by arlo.cworth.org (Postfix) with ESMTPS id 7004C6DE09ED for + ; Sat, 6 Feb 2016 13:08:03 -0800 (PST) +Received: by mail-wm0-f45.google.com with SMTP id g62so70083658wme.0 + for ; Sat, 06 Feb 2016 13:08:03 -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=cWrzPHKPzDYzYSpCdk11INHKUFp505G3llR/23UKoJZOLgTwHRs/TNPRVUXvJgt+Mx + LziJNHXpp64LFNvdewC3cNG36QV1n2kvc+9fl4IIyk8tuMk86YX8yloDeshGTdvGNZ2k + VbM7wh9p4uwJLcjVlGSCNr9iU5sLYAh/OcPG+9A4b8O3YT+HlXFSiOMIICfsnjOBoU7m + BsI8ARYRy8V3JeKc2iLOHuHGEC2F4iMT9MjJousS7yoBIy8naF5VfZBXDFSwB2P16NYa + 7EjV2+vYCB5waRohtLqdIMutgYLrRWH/Lv7a9RnQRxMQ8NOgRbDmYedzTE3kPQfF7COy + d/xw== +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=HgPhSDwuoqgOYtgAd9a1oCRJA/XDKQZHrc/CHHR3Dk7WecRzcbjcYPpML1rA507xHU + fyvwPvnLfSt0DAycZdZAh3zVFH+SVJhpM6SqMyxdi1RH4yhCaPlArTCaoyRuOvZetS4U + mp6H3Tfpmqs3JzRAtRdC61o8rAEdeXxdaN+1E/9GzyZIW5c9BrZy57uUMYhAzpq0sz+d + 0yGtOznCOf69Zzx1GguyZIoILZyLvukcOxCJBx+GuQ0Gc6+QkNaiLyMJfgujWXIuJ74T + ubQataYKZkC5e1FMLEBII9oUUliHfkbRqis9K6OlMagQDPBMcWPFzORwCmjFueG7H7b9 + Y/9w== +X-Gm-Message-State: + AG10YOS05msXDZ6bJ03WkBsW4dbkbQbZ14cnT4mXtZzDqlcxZ6si0JWKUG8C0bXr/MMaSQ== +X-Received: by 10.28.218.78 with SMTP id r75mr44647558wmg.7.1454792881801; + Sat, 06 Feb 2016 13:08:01 -0800 (PST) +Received: from disaster-area.hh.sledj.net (disaster-area.hh.sledj.net. + [81.149.164.25]) + by smtp.gmail.com with ESMTPSA id l7sm22000005wjx.14.2016.02.06.13.08.00 + for + (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); + Sat, 06 Feb 2016 13:08:00 -0800 (PST) +Received: from localhost (disaster-area.hh.sledj.net [local]) + by disaster-area.hh.sledj.net (OpenSMTPD) with ESMTPA id 53785319 + for ; Sat, 6 Feb 2016 21:07:57 +0000 (UTC) +From: David Edmondson +To: notmuch@notmuchmail.org +Subject: [PATCH v2 1/2] emacs: Add `notmuch-show-forward-open-messages'. +Date: Sat, 6 Feb 2016 21:07:56 +0000 +Message-Id: <1454792877-7180-2-git-send-email-dme@dme.org> +X-Mailer: git-send-email 2.1.4 +In-Reply-To: <1454792877-7180-1-git-send-email-dme@dme.org> +References: <1454792877-7180-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 21:08:06 -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 +