tags 42433 + moreinfo
thanks
Hi,
I'm revising old Emacs bugs in Debian.
On 1999-08-04 09:04 +0200, sw...@alum.mit.edu wrote:
> Package: emacs20
> Version: 20.3-10
> Severity: normal
>
> When using the mh-e system for email that comes with emacs20, there are
> problems with replying to mail when you have nmh-1.0.1 installed. I believe
> the options to nmh's repl(1) are different than older versions of repl(1) that
> were in MH.
>
> When you respond to a mail in mh-e, you get a menu asking who you want the
> reply to go to: "all", "to", or "from" (and "cc", the same as "all"). "from"
> is the default if you hit <RET>.
>
> The problem is that all responses behave as if you answered "from" (or simply
> pressed <RET>).
Is this still a problem for you in newer versions of Emacs and nmh?
I've never used MH-E, so I cannot tell.
> I've patched mh-comp.el and give the diff below. This works with nmh-1.0.1,
> but probably it doesn't now work any more with older versions of MH. So the
> patch isn't the ideal one, probably.
>
> Probably this bug & patch should be forwarded upstream to GNU, but I leave
> that
> to you.
Unfortunately the patch does not apply against recent versions of mh-comp.el.
> diff -c /usr/share/emacs/20.3/lisp/mail/mh-comp.el /var/tmp/mh-comp.el
> *** /usr/share/emacs/20.3/lisp/mail/mh-comp.el Sun Oct 4 12:54:38 1998
> --- /var/tmp/mh-comp.el Wed Aug 4 02:58:38 1999
> ***************
> *** 141,151 ****
> is searched for first in the user's MH directory, then in the
> system MH lib directory.")
>
> ! (defvar mh-repl-formfile "replcomps"
> ! "Name of file to be used as a skeleton for replying to messages.
> ! Default is \"replcomps\". If not an absolute file name, the file
> ! is searched for first in the user's MH directory, then in the
> ! system MH lib directory.")
>
> ;;; Hooks:
>
> --- 141,157 ----
> is searched for first in the user's MH directory, then in the
> system MH lib directory.")
>
> ! (defvar mh-repl-formfile nil
> ! "A string value means use that file as a skeleton for sender-replying to
> messages.
> ! Nil means use default of \"replcomps\". If not an absolute file
> ! name, the file is searched for first in the user's MH directory,
> ! then in the system MH lib directory.")
> !
> ! (defvar mh-repl-group-formfile nil
> ! "A string value means use that file as a skeleton for group-replying to
> messages.
> ! Nil means use default of \"replgroupcomps\". If not an absolute
> ! file name, the file is searched for first in the user's MH
> ! directory, then in the system MH lib directory.")
>
> ;;; Hooks:
>
> ***************
> *** 402,409 ****
> from sender only,
> to sender and primary recipients,
> cc/all sender and all recipients.
> ! If the file named by `mh-repl-formfile' exists, it is used as a skeleton
> ! for the reply. See also documentation for `\\[mh-send]' function."
> (interactive (list (mh-get-msg-num t) current-prefix-arg))
> (let ((minibuffer-help-form
> "from => Sender only\nto => Sender and primary recipients\ncc or all
> => Sender and all recipients"))
> --- 408,419 ----
> from sender only,
> to sender and primary recipients,
> cc/all sender and all recipients.
> ! If the file named by `mh-repl-formfile' exists, it is used as a
> ! skeleton for replies to the sender only (\"from\"); if the file
> ! named by `mh-repl-group-formfile' exists, it is used as a
> ! skeleton for all other kinds of replies.
> !
> ! See also documentation for `\\[mh-send]' function."
> (interactive (list (mh-get-msg-num t) current-prefix-arg))
> (let ((minibuffer-help-form
> "from => Sender only\nto => Sender and primary recipients\ncc or all
> => Sender and all recipients"))
> ***************
> *** 417,433 ****
> (config (current-window-configuration)))
> (message "Composing a reply...")
> (mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder"
> ! (if (stringp mh-repl-formfile) ;must be string, but we're paranoid
> ! (list "-form" mh-repl-formfile))
> ! mh-current-folder message
> ! (cond ((or (equal reply-to "from") (equal reply-to ""))
> ! '("-nocc" "all"))
> ! ((equal reply-to "to")
> ! '("-cc" "to"))
> ! ((or (equal reply-to "cc") (equal reply-to "all"))
> ! '("-cc" "all" "-nocc" "me")))
> ! (if includep
> ! '("-filter" "mhl.reply")))
> (let ((draft (mh-read-draft "reply"
> (expand-file-name "reply" mh-user-path)
> t)))
> --- 427,441 ----
> (config (current-window-configuration)))
> (message "Composing a reply...")
> (mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder"
> ! mh-current-folder message
> ! (cond ((or (equal reply-to "from") (equal reply-to ""))
> ! "-nogroup")
> ! ((equal reply-to "to")
> ! '("-group" "-nocc" "cc" "-nocc" "me"))
> ! ((or (equal reply-to "cc") (equal reply-to "all"))
> ! '("-group" "-nocc" "me")))
> ! (if includep
> ! '("-filter" "mhl.reply")))
> (let ((draft (mh-read-draft "reply"
> (expand-file-name "reply" mh-user-path)
> t)))
Regards,
Sven
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
