(defvar notmuch-show-signature-lines-max 12
"Maximum length of signature that will be hidden by default.")
-(defvar notmuch-show-citation-lines-prefix 4
+(defvar notmuch-show-citation-lines-prefix 3
"Always show at least this many lines at the start of a citation.
If there is one more line than the sum of
`notmuch-show-citation-lines-suffix', show that, otherwise
collapse remaining lines into a button.")
-(defvar notmuch-show-citation-lines-suffix 0
+(defvar notmuch-show-citation-lines-suffix 3
"Always show at least this many lines at the end of a citation.
If there is one more line than the sum of
:group 'notmuch)
(defun notmuch-show-do-stash (text)
- (kill-new text)
- (message (concat "Saved: " text)))
+ (kill-new text)
+ (message "Saved: %s" text))
(defun notmuch-show-stash-cc ()
"Copy CC field of current message to kill-ring."
(erase-buffer)
(goto-char (point-min))
(save-excursion
- (let* ((basic-args (list notmuch-command nil t nil "show" "--entire-thread" thread-id))
- (args (if query-context (append basic-args (list "and (" query-context ")")) basic-args)))
+ (let* ((basic-args (list notmuch-command nil t nil "show" "--entire-thread" "\'" thread-id))
+ (args (if query-context
+ (append basic-args (list "and (" query-context ")\'"))
+ (append basic-args (list "\'")))))
(apply 'call-process args)
(when (and (eq (buffer-size) 0) query-context)
(apply 'call-process basic-args)))