Re: message-subject-re

[Steve Youngs <youngs@xemacs.org>]

|--==> "PJ" == Paul Jarc <prj@po.cwru.edu> writes:

  PJ> I'd like to see something more general.  In particular, I'd like
  PJ> "(was:.*" to be removed from the Subject: in responses.  Maybe a hook
  PJ> is in order?

I use:

(defconst steve-obsolete-subject " (?was: .*"
  "*Regexp matching obsolete subjects.")

(defun steve-clear-subject ()
  "Remove steve-obsolete-subject from subject-header."
  (interactive)
  (let ((case-fold-search nil))
    (save-excursion
      (goto-line 0)
      (re-search-forward "^Subject: ")
      (if (re-search-forward steve-obsolete-subject nil t)
	  (replace-match "")))))

(define-key message-mode-map '"\M-o" 'steve-clear-subject)

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---|
|            XEmacs - It's not just an editor.             |
|                    It's a way of life.                   |
|------------------------------------<youngs@xemacs.org>---|