procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Wrong type argument: consp, nil error

Browse source 
* lisp/mh-e/mh-folder.el (mh-update-sequences): Add cur sequence when
missing
This commit is contained in:
Bill Wohler 2023-07-10 20:46:58 -07:00
parent a92ee5ca3c
commit 112e71914a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/mh-folder.el
View file

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