diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-08 13:49:37 +0200 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-08-09 20:47:52 -0300 |
| commit | 6fb7d35069c8770b872128156cb4f0511da6b6e9 (patch) | |
| tree | 0171ff5a63db5699867511f2047a8f1c5a643f79 /emacs/notmuch-maildir-fcc.el | |
| parent | a4617f29ce81e7ae3e0cb747fdb9070f88407a28 (diff) | |
emacs: Remove excess empty lines
Most people who write lots of lisp tend to only sparsely use empty
"separator" lines within forms. In lisp they feel unnecessary and
since most files stick to this convention we get a bit confused
when there are extra empty lines. It feels like the s-expressions
are falling into pieces.
All of this is especially true between a function's doc-string and
body because the doc-string is colored differently, which visually
already separates it quite sufficiently from the code that follows.
Diffstat (limited to 'emacs/notmuch-maildir-fcc.el')
| -rw-r--r-- | emacs/notmuch-maildir-fcc.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index 4b10a731..66f32fd4 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -94,22 +94,18 @@ Sets the Fcc header based on the values of `notmuch-fcc-dirs'. Originally intended to be use a hook function, but now called directly by notmuch-mua-mail." - (let ((subdir (cond ((or (not notmuch-fcc-dirs) (message-field-value "Fcc")) ;; Nothing set or an existing header. nil) - ((stringp notmuch-fcc-dirs) notmuch-fcc-dirs) - ((and (listp notmuch-fcc-dirs) (stringp (car notmuch-fcc-dirs))) ;; Old style - no longer works. (error "Invalid `notmuch-fcc-dirs' setting (old style)")) - ((listp notmuch-fcc-dirs) (let* ((from (message-field-value "From")) (match @@ -121,10 +117,8 @@ by notmuch-mua-mail." (cdr match) (message "No Fcc header added.") nil))) - (t (error "Invalid `notmuch-fcc-dirs' setting (neither string nor list)"))))) - (when subdir (if notmuch-maildir-use-notmuch-insert (notmuch-maildir-add-notmuch-insert-style-fcc-header subdir) @@ -133,7 +127,6 @@ by notmuch-mua-mail." (defun notmuch-maildir-add-notmuch-insert-style-fcc-header (subdir) ;; Notmuch insert does not accept absolute paths, so check the user ;; really want this header inserted. - (when (or (not (= (elt subdir 0) ?/)) (y-or-n-p (format "Fcc header %s is an absolute path and notmuch insert is requested. |