emacs: Add new option notmuch-search-hide-excluded

[notmuch] / emacs / notmuch-draft.el

diff --git a/emacs/notmuch-draft.el b/emacs/notmuch-draft.el
index 8af045986ba6c9d34d4cc7360762f1a7fa9fad30..fcc45503c6b0816d4ab12ab98a6c86cf6b2d3eb9 100644 (file)
--- a/emacs/notmuch-draft.el
+++ b/emacs/notmuch-draft.el
@@ -25,6 +25,10 @@
 
 ;;; Code:
 
 
 ;;; Code:
 

+(require 'cl-lib)
+(require 'pcase)
+(require 'subr-x)
+

 (require 'notmuch-maildir-fcc)
 (require 'notmuch-tag)
 
 (require 'notmuch-maildir-fcc)
 (require 'notmuch-tag)
 


@@ -38,7 +42,7 @@
   :group 'notmuch)
 
 (defcustom notmuch-draft-tags '("+draft")
   :group 'notmuch)
 
 (defcustom notmuch-draft-tags '("+draft")

-  "List of tags changes to apply to a draft message when it is saved in the database.
+  "List of tag changes to apply when saving a draft message in the database.

 
 Tags starting with \"+\" (or not starting with either \"+\" or
 \"-\") in the list will be added, and tags starting with \"-\"
 
 Tags starting with \"+\" (or not starting with either \"+\" or
 \"-\") in the list will be added, and tags starting with \"-\"


@@ -77,9 +81,11 @@ postponing and resuming a message."
   :group 'notmuch-send)
 
 (defcustom notmuch-draft-save-plaintext 'ask
   :group 'notmuch-send)
 
 (defcustom notmuch-draft-save-plaintext 'ask

-  "Should notmuch save/postpone in plaintext messages that seem
-like they are intended to be sent encrypted
-(i.e with an mml encryption tag in it)."
+  "Whether to allow saving plaintext when it seems encryption is intended.
+When a message contains mml tags, then that suggest it is
+intended to be encrypted.  If the user requests that such a
+message is saved locally, then this option controls whether
+that is allowed.  Beside a boolean, this can also be `ask'."

   :type '(radio
          (const :tag "Never" nil)
          (const :tag "Ask every time" ask)
   :type '(radio
          (const :tag "Never" nil)
          (const :tag "Ask every time" ask)


@@ -146,13 +152,13 @@ Used when a new version is saved, or the message is sent."
        (insert secure-tag "\n")))))
 
 (defun notmuch-draft--has-encryption-tag ()
        (insert secure-tag "\n")))))
 
 (defun notmuch-draft--has-encryption-tag ()

-  "Returns t if there is an mml secure tag."
+  "Return non-nil if there is an mml secure tag."

   (save-excursion
     (message-goto-body)
     (re-search-forward notmuch-draft-encryption-tag-regex nil t)))
 
 (defun notmuch-draft--query-encryption ()
   (save-excursion
     (message-goto-body)
     (re-search-forward notmuch-draft-encryption-tag-regex nil t)))
 
 (defun notmuch-draft--query-encryption ()

-  "Checks if we should save a message that should be encrypted.
+  "Return non-nil if we should save a message that should be encrypted.

 
 `notmuch-draft-save-plaintext' controls the behaviour."
   (cl-case notmuch-draft-save-plaintext
 
 `notmuch-draft-save-plaintext' controls the behaviour."
   (cl-case notmuch-draft-save-plaintext


@@ -233,7 +239,7 @@ applied to newly inserted messages)."
 (defun notmuch-draft-resume (id)
   "Resume editing of message with id ID."
   ;; Used by command `notmuch-show-resume-message'.
 (defun notmuch-draft-resume (id)
   "Resume editing of message with id ID."
   ;; Used by command `notmuch-show-resume-message'.

-  (let* ((tags (process-lines notmuch-command "search" "--output=tags"
+  (let* ((tags (notmuch--process-lines notmuch-command "search" "--output=tags"

                              "--exclude=false" id))
         (draft (equal tags (notmuch-update-tags tags notmuch-draft-tags))))
     (when (or draft
                              "--exclude=false" id))
         (draft (equal tags (notmuch-update-tags tags notmuch-draft-tags))))
     (when (or draft


@@ -243,7 +249,7 @@ applied to newly inserted messages)."
       (setq buffer-read-only nil)
       (erase-buffer)
       (let ((coding-system-for-read 'no-conversion))
       (setq buffer-read-only nil)
       (erase-buffer)
       (let ((coding-system-for-read 'no-conversion))

-       (call-process notmuch-command nil t nil "show" "--format=raw" id))
+       (notmuch--call-process notmuch-command nil t nil "show" "--format=raw" id))

       (mime-to-mml)
       (goto-char (point-min))
       (when (re-search-forward "^$" nil t)
       (mime-to-mml)
       (goto-char (point-min))
       (when (re-search-forward "^$" nil t)