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

emacs: notmuch-show-pipe-message: cosmetics

Browse source
This commit is contained in:
Jonas Bernoulli 2021-07-19 13:31:08 +02:00 committed by David Bremner
parent 01298a8437
commit 3a6e4f9768
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-show.el
View file

@ -2078,7 +2078,8 @@ message."
(let ((cwd default-directory) (let ((cwd default-directory)
(buf (get-buffer-create (concat "*notmuch-pipe*")))) (buf (get-buffer-create (concat "*notmuch-pipe*"))))
(with-current-buffer buf (with-current-buffer buf
(setq buffer-read-only nil) (setq buffer-read-only t)
(let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
;; Use the originating buffer's working directory instead of ;; Use the originating buffer's working directory instead of
;; that of the pipe buffer. ;; that of the pipe buffer.
@ -2086,11 +2087,10 @@ message."
(let ((exit-code (call-process-shell-command shell-command nil buf))) (let ((exit-code (call-process-shell-command shell-command nil buf)))
(goto-char (point-max)) (goto-char (point-max))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(setq buffer-read-only t)
(unless (zerop exit-code) (unless (zerop exit-code)
(pop-to-buffer buf) (pop-to-buffer buf)
(message (format "Command '%s' exited abnormally with code %d" (message (format "Command '%s' exited abnormally with code %d"
shell-command exit-code)))))))) shell-command exit-code)))))))))
(defun notmuch-show-tag-message (&rest tag-changes) (defun notmuch-show-tag-message (&rest tag-changes)
"Change tags for the current message. "Change tags for the current message.