debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Closing parenthesis go on the same line

Browse source
This commit is contained in:
Jonas Bernoulli 2020-08-08 13:49:39 +02:00 committed by David Bremner
parent caaa108760
commit 2ee8e971c5
4 changed files with 14 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-lib.el
View file

@ -555,13 +555,11 @@ This replaces spaces, percents, and double quotes in STR with
(string= (downcase t1) (downcase t2))))) (string= (downcase t1) (downcase t2)))))
(defvar notmuch-multipart/alternative-discouraged (defvar notmuch-multipart/alternative-discouraged
'( '(;; Avoid HTML parts.
;; Avoid HTML parts.
"text/html" "text/html"
;; multipart/related usually contain a text/html part and some ;; multipart/related usually contain a text/html part and some
;; associated graphics. ;; associated graphics.
"multipart/related" "multipart/related"))
))
(defun notmuch-multipart/alternative-determine-discouraged (msg) (defun notmuch-multipart/alternative-determine-discouraged (msg)
"Return the discouraged alternatives for the specified message." "Return the discouraged alternatives for the specified message."

19
emacs/notmuch-show.el
View file

@ -297,13 +297,12 @@ position of the message in the thread."
;; ;;
;; Any MIME part not explicitly mentioned here will be handled by an ;; Any MIME part not explicitly mentioned here will be handled by an
;; external viewer as configured in the various mailcap files. ;; external viewer as configured in the various mailcap files.
(let ((mm-inline-media-tests '( (let ((mm-inline-media-tests
("text/.*" ignore identity) '(("text/.*" ignore identity)
("application/pgp-signature" ignore identity) ("application/pgp-signature" ignore identity)
("multipart/alternative" ignore identity) ("multipart/alternative" ignore identity)
("multipart/mixed" ignore identity) ("multipart/mixed" ignore identity)
("multipart/related" ignore identity) ("multipart/related" ignore identity))))
)))
(mm-display-parts (mm-dissect-buffer))))) (mm-display-parts (mm-dissect-buffer)))))
(defun notmuch-show-save-attachments () (defun notmuch-show-save-attachments ()
@ -1791,10 +1790,8 @@ Reshows the current thread with matches defined by the new query-string."
(if (notmuch-show-message-visible-p) (if (notmuch-show-message-visible-p)
(setq message-ids (setq message-ids
(append message-ids (list (notmuch-show-get-message-id))))) (append message-ids (list (notmuch-show-get-message-id)))))
(setq done (not (notmuch-show-goto-message-next))) (setq done (not (notmuch-show-goto-message-next))))
) message-ids)))
message-ids
)))
;; Commands typically bound to keys. ;; Commands typically bound to keys.

4
emacs/notmuch-tree.el
View file

@ -1020,8 +1020,8 @@ the same as for the function notmuch-tree."
(erase-buffer) (erase-buffer)
(goto-char (point-min)) (goto-char (point-min))
(let* ((search-args (concat basic-query (let* ((search-args (concat basic-query
(if query-context (concat " and (" query-context ")")) (if query-context
)) (concat " and (" query-context ")"))))
(message-arg (if unthreaded "--unthreaded" "--entire-thread"))) (message-arg (if unthreaded "--unthreaded" "--entire-thread")))
(if (equal (car (process-lines notmuch-command "count" search-args)) "0") (if (equal (car (process-lines notmuch-command "count" search-args)) "0")
(setq search-args basic-query)) (setq search-args basic-query))

6
emacs/notmuch.el
View file

@ -910,8 +910,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."
query) query)
"*")) "*"))
(t (t
(concat "*notmuch-search-" query "*")) (concat "*notmuch-search-" query "*")))))
)))
(defun notmuch-read-query (prompt) (defun notmuch-read-query (prompt)
"Read a notmuch-query from the minibuffer with completion. "Read a notmuch-query from the minibuffer with completion.
@ -1003,8 +1002,7 @@ the configured default sort order."
(let ((proc (get-buffer-process (current-buffer))) (let ((proc (get-buffer-process (current-buffer)))
(inhibit-read-only t)) (inhibit-read-only t))
(if proc (if proc
(error "notmuch search process already running for query `%s'" query) (error "notmuch search process already running for query `%s'" query))
)
(erase-buffer) (erase-buffer)
(goto-char (point-min)) (goto-char (point-min))
(save-excursion (save-excursion