Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!mcsun!unido!sapwdf!wohler
From: wohler@sapwdf.UUCP (Bill Wohler)
Newsgroups: comp.mail.mh
Subject: Re: replcomps (mh-format)
Keywords: replcomps
Message-ID: <2609@sapwdf.UUCP>
Date: 22 Feb 91 12:45:50 GMT
References: <10179@mirsa.inria.fr>
Reply-To: Bill Wohler <wohler@sap-ag.de>
Organization: SAP AG, Walldorf, Germany
Lines: 83

djossou@snoopy.inria.fr (Coco Djossou) writes:
>Bonjour,
>I want to modify my replcomps file in order to get:
>In-Reply-To: SenderName's message of Tue, 19 Feb 91 18:21:53 +0100.
>             ^^^^^^^^^^^^
>instead of the default:
>In-Reply-To: Your message of Tue, 19 Feb 91 18:21:53 +0100.
>             ^^^^

bonjour coco,

  ich kenne genau deine problem.

  sorry, i don't know of any other variable other than %{from} or
  %{friendly}.

  however, i happened to have thrown nuclear tonnage at the problem.
  this problably isn't the answer you want, but if you happen to use
  mh-e under gnuemacs, you can add the following to your
  .emacs file to have emacs edit the In-reply-to header automatically.
  there are still a couple of rare cases where it blows it:

  i hope that this evokes simpler, more elegant solutions from the
  others. ;-)

					--b "a san franciscan abroad" w
					wohler@sap-ag.de


(setq mh-compose-letter-hook 
      '(lambda (&optional to &optional subject &optional cc)
	 (mh-e-replyto)))

;;; Customize the in-reply-to header.
;;; Need to generalize so that one could have "name <address>", "<address> 
;;; <name>", or just "<address>".  Currently only works for the first.  Same
;;; with "(".
(defun mh-e-replyto ()
  "Edit 'In-reply-to' header so that only the person's finger name remains."
  (interactive)
  (point-to-register 'a)
  (goto-char (dot-min))
  (if (search-forward "In-reply-to" nil t)
      (progn
	(end-of-line)
	(set-mark (dot))
	(beginning-of-line)
	(cond
	 ((search-forward "<" (mark) t)
	  (backward-char 2)
	  (zap-to-char 1 '?'))
	 ((search-forward "(" (mark) t)
	  (beginning-of-line)
	  (search-forward ":" (mark) t)
	  (zap-to-char 1 '?\()
	  (delete-char 1)
	  (insert " ")
	  (search-forward ")" (mark) t)
	  (while (looking-at "[') \t]") (backward-char))
	  (forward-char)
	  (zap-to-char 1 '?'))
	 (t
	  (search-forward " 's" (mark) t)
	  (backward-char 3)
	  (delete-char 1)
	  (beginning-of-line)
	  (if (search-forward "!" (mark) t)
	      (clean-uucp-path))
	  (message "No comment present in In-reply-to header")
	  (sit-for 2)))))
  (register-to-point 'a))

(defun clean-uucp-path ()
  (search-forward "@")
  (while (looking-at "[^']")
    (delete-char 1))
  (delete-backward-char 1)
  (backward-word 2)
  (set-mark (point))
  (while (looking-at "[^ \t]")
    (backward-char 1))
  (forward-char 1)
  (kill-region (point) (mark)))