mh-print-msg

[Dirk Gouders <gouders@et.bocholt.fh-ge.de>]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.3.1 (i386--freebsd, X toolkit, Xaw3d scroll bars)
 of 2004-07-15 on musashi.et.bocholt.fh-gelsenkirchen.de
configured using `configure  --prefix=/usr/local i386--freebsd'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

The function mh-print-msg did not work on my machine.
So, I debugged the function and saw, that it does a
(expand-file-name "mhl" mh-lib) to generate the command to format the
mail before printing.  On my machine, the variable mh-lib is set to
/usr/local/etc/nmh and this directory does not contain the program
mhl.  I recognized that there is another variable mh-lib-progs that
is set to the directory where the program mhl actually exists.

So, I am wondering, if the variable mh-lib-progs should be used to
generate the format command.

If so, here is a patch for the necessary changes:

diff -r -u emacs-21.3/lisp/mail/mh-funcs.el emacs-21.3_mod/lisp/mail/mh-funcs.el
--- emacs-21.3/lisp/mail/mh-funcs.el    Sun Jul 15 21:53:53 2001
+++ emacs-21.3_mod/lisp/mail/mh-funcs.el        Thu Jul 15 16:46:19 2004
@@ -211,7 +211,7 @@
   (let ((print-command
         (if (numberp msg-or-seq)
             (format "%s -nobell -clear %s %s | %s"
-                    (expand-file-name "mhl" mh-lib)
+                    (expand-file-name "mhl" mh-lib-progs)
                     (mh-msg-filename msg-or-seq)
                     (if (stringp mhl-formfile)
                         (format "-form %s" mhl-formfile)

Recent input:
<help-echo> <help-echo> M-x m h - r m a i l <return> 
M-f 2 0 0 4 <return> <return> l M-x b <tab> u <tab> 
<backspace> <backspace> <tab> C-x o C-x o C-x 1 C-s 
b u g C-s C-s C-s C-s C-s C-s <return> <return>

Recent messages:
inc +inbox...done
No new mail
Collecting folder names...done
Scanning +2004...done
Loading mh-funcs...done
Printing message...done
Making completion list...
Loading view...done
Making completion list... [2 times]
Loading emacsbug...done