diff options
author | Robert Pluim <rpluim@gmail.com> | 2022-11-17 16:45:36 +0100 |
---|---|---|
committer | Robert Pluim <rpluim@gmail.com> | 2022-11-18 16:09:05 +0100 |
commit | 592d5d7759c7ec9873ba2b54602b646b06bd9b0f (patch) | |
tree | b25778b2ab3af3f1fbc6d194f07ff68ce07093a2 /lisp/mail/rmailsum.el | |
parent | ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d (diff) | |
download | emacs-592d5d7759c7ec9873ba2b54602b646b06bd9b0f.tar.gz |
Use boolean values directly in rmailsum
* lisp/mail/rmailsum.el (rmail-summary-invert):
(rmail-summary-direct-descendants):
(rmail-summary--walk-thread-message-recursively):
(rmail-summary-by-thread):
(rmail-summary-by-labels):
(rmail-summary-by-recipients):
(rmail-summary-by-regexp):
(rmail-summary-by-topic):
(rmail-summary-by-senders): Use the boolean values in
'rmail-summary-currently-displayed-msgs' and similar directly instead
of comparing them to t and nil.
Diffstat (limited to 'lisp/mail/rmailsum.el')
-rw-r--r-- | lisp/mail/rmailsum.el | 29 |
1 files changed, 11 insertions, 18 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index f161664d964..08c544bc999 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -371,8 +371,7 @@ the messages that are displayed." '(rmail-summary-by-regexp ".*") (lambda (msg) (if - (eq (aref rmail-summary-currently-displayed-msgs msg) - nil) + (not (aref rmail-summary-currently-displayed-msgs msg)) (aset rmail-summary-currently-displayed-msgs msg t) (aset rmail-summary-currently-displayed-msgs msg nil))))) @@ -396,7 +395,7 @@ already ticked in ENCOUNTERED-MSGS." (msg 1)) (while (<= msg rmail-total-messages) (when (and - (eq nil (aref encountered-msgs msg)) + (not (aref encountered-msgs msg)) (memq msgnum (aref rmail-summary-message-parents-vector msg))) (setq desc (cons msg desc))) (setq msg (1+ msg))) @@ -404,7 +403,7 @@ already ticked in ENCOUNTERED-MSGS." (defun rmail-summary--walk-thread-message-recursively (msgnum encountered-msgs) "Add parents and descendants of message MSGNUM to ENCOUNTERED-MSGS, recursively." - (unless (eq (aref encountered-msgs msgnum) t) + (unless (aref encountered-msgs msgnum) (aset encountered-msgs msgnum t) (let ((walk-thread-msg (lambda (msg) @@ -439,10 +438,9 @@ headers of the messages." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg msgnum) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) - (eq (aref enc-msgs msg) t))) - (lambda (msg msgnum) (eq (aref enc-msgs msg) t))) + (and (aref rmail-summary-currently-displayed-msgs msg) + (aref enc-msgs msg))) + (lambda (msg msgnum) (aref enc-msgs msg))) msgnum)))) ;;;###autoload @@ -462,8 +460,7 @@ LABELS should be a string containing the desired labels, separated by commas." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg l) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) + (and (aref rmail-summary-currently-displayed-msgs msg) (rmail-message-labels-p msg l))) 'rmail-message-labels-p) (concat " \\(" @@ -487,8 +484,7 @@ RECIPIENTS is a regular expression." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg r &optional po) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) + (and (aref rmail-summary-currently-displayed-msgs msg) (rmail-message-recipients-p msg r po))) 'rmail-message-recipients-p) recipients primary-only)) @@ -527,8 +523,7 @@ Emacs will list the message in the summary." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg r) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) + (and (aref rmail-summary-currently-displayed-msgs msg) (rmail-message-regexp-p msg r))) 'rmail-message-regexp-p) regexp)) @@ -585,8 +580,7 @@ SUBJECT is a regular expression." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg s &optional wm) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) + (and (aref rmail-summary-currently-displayed-msgs msg) (rmail-message-subject-p msg s wm))) 'rmail-message-subject-p) subject whole-message)) @@ -621,8 +615,7 @@ sender of the current message." (if (and rmail-summary-progressively-narrow (rmail-summary--exists-1)) (lambda (msg s) - (and (eq (aref rmail-summary-currently-displayed-msgs msg) - t) + (and (aref rmail-summary-currently-displayed-msgs msg) (rmail-message-senders-p msg s))) 'rmail-message-senders-p) senders)) |