1 files 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)