[15150] in Athena Bugs

home help back first fref pref prev next nref lref last post

mh-e bug: Doesn't quit if (mh-find-seq 'cur) returns 'nil

daemon@ATHENA.MIT.EDU (Jacob Morzinski)
Wed May 14 04:09:59 1997

To: gildea@lcs.mit.edu
Cc: bugs@MIT.EDU
Date: Wed, 14 May 1997 04:09:52 EDT
From: "Jacob Morzinski" <jmorzins@MIT.EDU>


Mh-e will occasionally refuse to quit when I type 'q'.

It beeps, and displays a message:  "wrong-type-argument consp nil"

The reason for this appears to be that as part of the exit
function, it calls (mh-find-seq 'cur), and fails to cope if it
gets a 'nil return value.


My current emacs is 19.30; diffing the mh-e.el file with the one
included in 19.34 suggests that the error will be present in the
19.34 version as well.


The mh-e.el file suggested that gildea@lcs.mit.edu is the correct
address to send this mail to.



A backtrace of the error, followed by output of mh-version:
---------------------------------------------------------------------------
Signalling: (wrong-type-argument consp nil)
  setcdr(nil (465))
  (let ((seq-entry ...)) (mh-remove-cur-notation) (setcdr seq-entry (list new-cur)) (mh-define-sequence (quote cur) (list new-cur)) (beginning-of-line) (if (looking-at mh-good-msg-regexp) (mh-notate nil mh-note-cur mh-cmd-note)))
  (if new-cur (let (...) (mh-remove-cur-notation) (setcdr seq-entry ...) (mh-define-sequence ... ...) (beginning-of-line) (if ... ...)) (or folder-set (save-excursion ...)))
  (let ((folder-set ...) (new-cur ...)) (if new-cur (let ... ... ... ... ... ...) (or folder-set ...)))
  mh-update-sequences()
  mh-quit()
  call-interactively(mh-quit)
---------------------------------------------------------------------------
---------------------------------------------------------------------------
  mh-e info:

version: 5.0.2
Time-stamp: <95/10/30 19:14:06 gildea>
Emacs: 19.30.1 on usg-unix-v SunOS m4-370-1 5.4 Generic_101945-37 sun4m sparc


  MH info:

/usr/athena/bin/inc:
version: MH 6.8 #9[UCI]  (downy) of Wed May 8 15:47:55 EDT 1996
options: [ATHENA] [ATZ] [BERK] [BIND] [DPOP] [DUMB] [FCNTL]
         [FOLDPROT='"0700"'] [HESIOD] [KPOP] [MAILGROUP] [MHE] [MHRC]
         [MIME] [MSGPROT='"0600"'] [OVERHEAD] [POP] [RENAME] [RPATHS]
         [RPOP] [SBACKUP='"#"'] [SENDMTS] [SHADOW] [SOCKETS]
         [SPRINTFTYPE=int] [SVR4] [SYS5] [SYS5DIR] [TERMINFO]
         [TYPESIG=void] [UCI] [UNISTD] [VSPRINTF] [WAITINT] [WHATNOW]
---------------------------------------------------------------------------


Thank you,
-- 
 Jacob Morzinski                                jmorzins@mit.edu

home help back first fref pref prev next nref lref last post