emacs: update quoting in docstrings

[notmuch] / emacs / notmuch-hello.el

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index fc007c4c450476a54a23203a34e96bfdd729f0f0..2d4fdc02591d94ddcc484a53521933b5eabbbe96 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -145,7 +145,7 @@ a plist. Supported properties are
                    or nil. Nil means use the default sort order.
   :search-type     Specify whether to run the search in search-mode,
                    tree mode or unthreaded mode. Set to `tree' to
                    or nil. Nil means use the default sort order.
   :search-type     Specify whether to run the search in search-mode,
                    tree mode or unthreaded mode. Set to `tree' to

-                   specify tree mode, 'unthreaded to specify
+                   specify tree mode, \\='unthreaded to specify

                    unthreaded mode, and set to nil (or anything
                    except tree and unthreaded) to specify search
                    mode.
                    unthreaded mode, and set to nil (or anything
                    except tree and unthreaded) to specify search
                    mode.


@@ -486,11 +486,14 @@ diagonal."
 (defun notmuch-hello-widget-search (widget &rest _ignore)
   (cl-case (widget-get widget :notmuch-search-type)
    (tree
 (defun notmuch-hello-widget-search (widget &rest _ignore)
   (cl-case (widget-get widget :notmuch-search-type)
    (tree

-    (notmuch-tree (widget-get widget :notmuch-search-terms)
-                 nil nil nil nil nil nil
-                 (widget-get widget :notmuch-search-oldest-first)))
+    (let ((n (notmuch-search-format-buffer-name (widget-value widget) "tree" t)))
+      (notmuch-tree (widget-get widget :notmuch-search-terms)
+                   nil nil n nil nil nil
+                   (widget-get widget :notmuch-search-oldest-first))))

    (unthreaded
    (unthreaded

-    (notmuch-unthreaded (widget-get widget :notmuch-search-terms)))
+    (let ((n (notmuch-search-format-buffer-name (widget-value widget)
+                                               "unthreaded" t)))
+      (notmuch-unthreaded (widget-get widget :notmuch-search-terms) nil nil n)))

    (t
     (notmuch-search (widget-get widget :notmuch-search-terms)
                    (widget-get widget :notmuch-search-oldest-first)))))
    (t
     (notmuch-search (widget-get widget :notmuch-search-terms)
                    (widget-get widget :notmuch-search-oldest-first)))))


@@ -557,7 +560,8 @@ with any properties in the original saved-search.
 
 The values :show-empty-searches, :filter and :filter-count from
 options will be handled as specified for
 
 The values :show-empty-searches, :filter and :filter-count from
 options will be handled as specified for

-`notmuch-hello-insert-searches'."
+`notmuch-hello-insert-searches'. :disable-includes can be used to
+turn off the default exclude processing in `notmuch-count(1)'"

   (with-temp-buffer
     (dolist (elem query-list nil)
       (let ((count-query (or (notmuch-saved-search-get elem :count-query)
   (with-temp-buffer
     (dolist (elem query-list nil)
       (let ((count-query (or (notmuch-saved-search-get elem :count-query)


@@ -570,7 +574,11 @@ options will be handled as specified for
                                            (plist-get options :filter))))
         "\n")))
     (unless (= (notmuch--call-process-region (point-min) (point-max) notmuch-command
                                            (plist-get options :filter))))
         "\n")))
     (unless (= (notmuch--call-process-region (point-min) (point-max) notmuch-command

-                                   t t nil "count" "--batch") 0)
+                                            t t nil "count"
+                                            (if (plist-get options :disable-excludes)
+                                                "--exclude=false"
+                                              "--exclude=true")
+                                            "--batch") 0)

       (notmuch-logged-error
        "notmuch count --batch failed"
        "Please check that the notmuch CLI is new enough to support `count
       (notmuch-logged-error
        "notmuch count --batch failed"
        "Please check that the notmuch CLI is new enough to support `count


@@ -702,6 +710,9 @@ with `notmuch-hello-query-counts'."
   ;; that when we modify map it does not modify widget-keymap).
   (let ((map (make-composed-keymap (list (make-sparse-keymap) widget-keymap))))
     (set-keymap-parent map notmuch-common-keymap)
   ;; that when we modify map it does not modify widget-keymap).
   (let ((map (make-composed-keymap (list (make-sparse-keymap) widget-keymap))))
     (set-keymap-parent map notmuch-common-keymap)

+    ;; Currently notmuch-hello-mode supports free text entry, but not
+    ;; tagging operations, so provide standard undo.
+    (define-key map [remap notmuch-tag-undo] #'undo)

     map)
   "Keymap for \"notmuch hello\" buffers.")
 
     map)
   "Keymap for \"notmuch hello\" buffers.")
 


@@ -785,7 +796,7 @@ Complete list of currently available key bindings:
                   :help-echo "Refresh"
                   (notmuch-hello-nice-number
                    (string-to-number
                   :help-echo "Refresh"
                   (notmuch-hello-nice-number
                    (string-to-number

-                    (car (notmuch--process-lines notmuch-command "count")))))
+                    (car (notmuch--process-lines notmuch-command "count" "--exclude=false")))))

     (widget-insert " messages.\n")))
 
 (defun notmuch-hello-insert-saved-searches ()
     (widget-insert " messages.\n")))
 
 (defun notmuch-hello-insert-saved-searches ()


@@ -917,7 +928,8 @@ following:
    nil
    :initially-hidden (not notmuch-show-all-tags-list)
    :hide-tags notmuch-hello-hide-tags
    nil
    :initially-hidden (not notmuch-show-all-tags-list)
    :hide-tags notmuch-hello-hide-tags

-   :filter notmuch-hello-tag-list-make-query))
+   :filter notmuch-hello-tag-list-make-query
+   :disable-excludes t))

 
 (defun notmuch-hello-insert-footer ()
   "Insert the notmuch-hello footer."
 
 (defun notmuch-hello-insert-footer ()
   "Insert the notmuch-hello footer."