Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!decwrl!ucbvax!EXPO.LCS.MIT.EDU!gildea
From: gildea@EXPO.LCS.MIT.EDU (Stephen Gildea)
Newsgroups: comp.mail.mh
Subject: Re: Problems with private sequences in mh-e/GnuEmacs/MH
Message-ID: <9105172207.AA10808@alex.lcs.mit.edu>
Date: 17 May 91 22:07:26 GMT
References: <13519@exodus.Eng.Sun.COM>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 32


    mh-e is taking "cur (private)" to be the name of the sequence, and
    passes this along to other mh commands, which barf.


Yup, that's a bug in mh-e.  The fix is to use the following definition
of mh-read-folder-sequences, which will be in the next version.

 < Stephen


(defun mh-read-folder-sequences (folder define-sequences)
  ;; Read and return the predefined sequences for a FOLDER.  If
  ;; DEFINE-SEQUENCES is non-nil, then define mh-e's sequences before
  ;; reading MH's sequences.
  (let ((seqs ()))
    (mh-when define-sequences
      (mh-define-sequences mh-seq-list)
      (mh-mapc (function (lambda (seq)	; Save the internal sequences
			   (if (mh-folder-name-p (mh-seq-name seq))
			       (mh-push seq seqs))))
	       mh-seq-list))
    (save-excursion
      (mh-exec-cmd-quiet " *mh-temp*" "mark" folder "-list")
      (goto-char (point-min))
      (while (re-search-forward "^[^: ]+" nil t)
	(mh-push (mh-make-seq (intern (buffer-substring (match-beginning 0)
							(match-end 0)))
			      (mh-read-msg-list))
		 seqs))
      (delete-region (point-min) (point))) ; avoid race with mh-process-daemon
    seqs))