emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 112e71914a9 2/2: Fix Wrong type argument: consp, nil error


From: Bill Wohler
Subject: master 112e71914a9 2/2: Fix Wrong type argument: consp, nil error
Date: Mon, 10 Jul 2023 23:51:22 -0400 (EDT)

branch: master
commit 112e71914a98cd21d222b9abe9d2fc52eb8852ea
Author: Bill Wohler <wohler@newt.com>
Commit: Bill Wohler <wohler@newt.com>

    Fix Wrong type argument: consp, nil error
    
    * lisp/mh-e/mh-folder.el (mh-update-sequences): Add cur sequence when
    missing
---
 lisp/mh-e/mh-folder.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index dbed3c83994..68f72a6e0cf 100644
--- a/lisp/mh-e/mh-folder.el
+++ b/lisp/mh-e/mh-folder.el
@@ -1293,8 +1293,9 @@ The message at the cursor is used for \"cur\"."
     (if new-cur
         (let ((seq-entry (mh-find-seq 'cur)))
           (mh-remove-cur-notation)
-          (setcdr seq-entry
-                  (list new-cur))       ;delete-seq-locally, add-msgs-to-seq
+          (if seq-entry
+              (setcdr seq-entry (list new-cur))
+            (mh-add-msgs-to-seq (list new-cur) 'cur))
           (mh-define-sequence 'cur (list new-cur))
           (beginning-of-line)
           (if (looking-at mh-scan-good-msg-regexp)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]