[comp.mail.mh] Problems with private sequences in mh-e/GnuEmacs/MH

dcj@jacksun.Eng.Sun.COM (Donald Clark Jackson) (05/18/91)

Hello:

I have a question regarding the use of mh-e (MH under Gnuemacs).

I have been using only private sequences in MH.

When "mark" lists private sequences, it denotes private sequences with
"(private)".  That is:

$ mark -list
cur (private): 23
unseen (private): 5 8 12 20

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

Has anyone else encountered this, and come up with a workaround? 

Here is the relevant version info:

SunOS 4.1.1

GNUEmacs 18.54

;;;  mh-e.el	(Version: 3.7 for GNU Emacs Version 18 and MH.5 and MH.6)
(setq mh-e-RCS-id "$Header: /var/home/larus/lib/emacs/RCS/mh-e.el,v 3.1 90/09/28 15:47:58 larus Exp Locker: larus $")


version: MH 6.7 #15[UCI] (bytor) of Tue Feb 5 13:20:35 PST 1991
options: [BSD42] [BSD43] [ATZ] [MHRC] [WHATNOW] [OVERHEAD] [NOMHSEQ]
         [DBM] [ISI] [RPATHS] [MHE] [NETWORK] [SUN40] [TYPESIG='void']
         [TTYD] [NFS] [BIND] [MORE='"/usr/local/bin/less"']
         [SBACKUP='"#"'] [RAND] [BLAND] [IJS] [SUNENV] [SENDMTS] [SMTP]
         [RANDMAIL]

--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Don Jackson
don.jackson@eng.sun.com
Phone: (415) 336-1713		Fax: (415) 965-4903

gildea@EXPO.LCS.MIT.EDU (Stephen Gildea) (05/18/91)

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