Re: address@hidden: desktop package fails restoring stuff]

[Juri Linkov]

> Debugger entered--Lisp error: (error "Unable to find the `mhparam' command")
>   signal(error ("Unable to find the `mhparam' command"))
>   error("Unable to find the `mhparam' command")
>   mh-find-progs()
>   mh-find-path()
>   mh-letter-mode()
>   set-auto-mode()
>   normal-mode(t)
>   after-find-file(nil t)
>   find-file-noselect-1(#<buffer 370> "~/News/drafts/drafts/370" nil nil 
> "~/News/drafts/drafts/370" (192619 14849))
>   find-file-noselect("/home/dak/News/drafts/drafts/370")
>   desktop-buffer-file()
>   desktop-create-buffer(206 "/home/dak/News/drafts/drafts/370" "370" 
> mh-letter-mode nil 1 (nil nil) nil nil ((buffer-file-coding-system . 
> emacs-mule-unix)))
>   eval-buffer(#<buffer  *load*> nil "/home/dak/.emacs.desktop" nil t)
>   ;;; Reading at buffer position 140853
>   load-with-code-conversion("/home/dak/.emacs.desktop" 
> "/home/dak/.emacs.desktop" t t)
>   load("/home/dak/.emacs.desktop" t t t)
>   desktop-read()
>   (progn (desktop-read))
>   (if desktop-save-mode (progn (desktop-read)))
>   (when desktop-save-mode (desktop-read))
>   (if (member key command-line-args) (delete key command-line-args) (when 
> desktop-save-mode (desktop-read)))
>   (let ((key "--no-desktop")) (if (member key command-line-args) (delete key 
> command-line-args) (when desktop-save-mode ...)))
>   (lambda nil (let (...) (if ... ... ...)))()
>   run-hooks(after-init-hook)
>   command-line()
>   normal-top-level()

I don't know why MH-E was unable to find the mhparam, but the variable
`auto-mode-alist' has the entry ("/drafts/[0-9]+\\'" . mh-letter-mode)
which tries to set MH-Letter mode.  Perhaps MH-E should be fixed to
not signal an error.  But in any case desktop.el should not fail to
load the desktop file.  One possible solution is to set debug-on-error
to nil before calling the `find-file-noselect', and so let
`report-errors' catch errors from `set-auto-mode' in `normal-mode'.

*** emacs/lisp/desktop.el       29 Feb 2004 23:13:02 -0000      1.67
--- emacs/lisp/desktop.el       6 Apr 2004 08:33:03 -0000
***************
*** 877,882 ****
--- 882,888 ----
                    (or coding-system-for-read
                        (cdr (assq 'buffer-file-coding-system
                                   desktop-buffer-locals))))
+                  (debug-on-error nil) ; Let report-errors catch errors
                   (buf (find-file-noselect desktop-buffer-file-name)))
              (condition-case nil
                  (switch-to-buffer buf)

-- 
Juri Linkov
http://www.jurta.org/emacs/