[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)