patch for message.el, gnus-mh.el and gnus.el

patch for message.el, gnus-mh.el and gnus.el

[守岡 知彦 / MORIOKA Tomohiko]

[-- Attachment #1: Type: text/plain, Size: 603 bytes --]

  I want to use mh-e to write mail, however message.el does not permit 
to use other MUA. So I wrote a patch for message.el.

  This patch expands a variable `message-buffer-constructor-alist'.
This variable is an alist which key part is buffer name and value part
is functions to build message buffer. Default key is `t'.

  This patch does not have implementation for other MUAs. I wrote
buffer-constructor for mh-e and inserted to gnus-mh.el. In addition,
I modified gnus.el for auto-loading.

  Maybe you can write other buffer-constructor if you want to use
other user-interface to write message.


[-- Attachment #2: message.el.diff --]
[-- Type: application/octet-stream, Size: 1279 bytes --]

*** message.el-orig	Sun Apr 14 16:40:06 1996
--- message.el	Tue Apr 16 02:33:57 1996
***************
*** 297,302 ****
--- 297,308 ----
  (defvar message-default-news-headers nil
    "*A string of header lines to be inserted in outgoing news articles.")
  
+ ;; 1996/4/16 created by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+ (defvar message-buffer-constructor-alist
+   '((t . message-default-buffer-constructor))
+   "*Alist which key part is buffer name and value part is
+ functions to build message buffer.")
+ 
  ;; Note: could use /usr/ucb/mail instead of sendmail;
  ;; options -t, and -v if not interactive.
  (defvar message-mailer-swallows-blank-line
***************
*** 1836,1842 ****
--- 1842,1856 ----
        (forward-line 2)))
     (sit-for 0)))
  
+ ;; 1996/4/16 created by MORIOKA Tomohiko <morioka@jaist.ac.jp>
  (defun message-pop-to-buffer (name)
+   "Pop to buffer NAME, and warn if it already exists and is modified."
+   (let ((m (cdr (or (assoc name message-buffer-constructor-alist)
+ 		    (assq t message-buffer-constructor-alist)))))
+     (funcall m name)
+     ))
+ 
+ (defun message-default-buffer-constructor (name)
    "Pop to buffer NAME, and warn if it already exists and is modified."
    (let ((buffer (get-buffer name)))
      (if (and buffer

[-- Attachment #3: gnus-mh.el.diff --]
[-- Type: application/octet-stream, Size: 842 bytes --]

*** gnus-mh.el-orig	Sun Apr 14 16:39:59 1996
--- gnus-mh.el	Tue Apr 16 02:39:39 1996
***************
*** 118,123 ****
--- 118,139 ----
  		      (cdr reply)))))
  	  (and winconf (set-window-configuration winconf))))))
  
+ (defun message-buffer-constructor-using-mh-e (name)
+   "message-buffer-constructor for mh-e."
+   (let (mh-letter-mode-hook)
+     (mh-send "" "" "")
+     )
+   (erase-buffer)
+   (use-local-map (copy-keymap (current-local-map)))
+   (local-set-key "\C-c\C-c" 'message-send-for-mh-e)
+   )
+ 
+ (defun message-send-for-mh-e ()
+   (interactive)
+   (gnus-inews-do-gcc)
+   (mh-send-letter)
+   )
+ 
  (defun gnus-Folder-save-name (newsgroup headers &optional last-folder)
    "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
  If variable `gnus-use-long-file-name' is nil, it is +News.group.

[-- Attachment #4: gnus.el.diff --]
[-- Type: application/octet-stream, Size: 205 bytes --]

1977c1977,1978
<      ("gnus-mh" gnus-mh-mail-setup gnus-summary-save-article-folder
---
>      ("gnus-mh" message-buffer-constructor-using-mh-e
>       gnus-mh-mail-setup gnus-summary-save-article-folder

[-- Attachment #5: Type: text/plain, Size: 464 bytes --]


  By the way, function `gnus-mh-mail-setup' and
`gnus-mh-mail-send-and-exit' seem not to be used. Why not delete them?


  Thanks,
----------------------------------------------------------------------
MORIOKA Tomohiko <morioka@jaist.ac.jp>
        Japan advanced Institute of Science and Technology, Hokuriku
                Asahi-dai, Tatsu-no-kuchi chô, Nomi, Ishikawa, Japan
----------------------------------------- Frisch, Frei, Freöhlich! ---

Re: patch for message.el, gnus-mh.el and gnus.el

[Lars Magne Ingebrigtsen]

morioka@jaist.ac.jp (=?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= / MORIOKA Tomohiko) writes:

>   I want to use mh-e to write mail, however message.el does not permit 
> to use other MUA. So I wrote a patch for message.el.

The main idea of "message.el" was that it should be The One
Message-Composition Mode.  I think it's time that I talked with the
mh-e & VM people about possible integration.  Is Stephen Gildea
<gildea@lcs.mit.edu> the person who maintains mh-e?

While I'm at it:  Where can I get mh from?  And Tools for Mime?  I
seem to have lost that address as well...

-- 
  "Yes.  The journey through the human heart 
     would have to wait until some other time."

Re: patch for message.el, gnus-mh.el and gnus.el

[Steven L Baur]

>>>>> "lmi" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:
lmi> While I'm at it:  Where can I get mh from?  And Tools for Mime?  I
lmi> seem to have lost that address as well...

Well you could just Fetch group FAQ on comp.mail.mh and gnu.emacs.gnus
from Gnus for answers ...  :-)

MH source:
    ftp://ftp.ics.uci.edu/mh/mh-6.8.tar.Z
    ftp://ftp.uu.net/networking/mail/mh/mh-6.8.tar.Z
    ftp://krynn.efd.lth.se/pub/mail/mh-6.8.tar.Z
Linux Only binaries:
    ftp://sunsite.unc.edu/pub/Linux/system/Mail/readers/mh-6.8.3-bin.tgz

TM Source:
    ftp://ftp.jaist.ac.jp/pub/GNU/elisp/mime/beta/
TM 7.52 is current.
-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.