1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
;; mh-frame.el - Open mh-e in a separate frame
;;
;; Copyright (C) 1995 Mark Crimmins
;; Copyright (C) 1995, 2001 Eric Ding
;; Authors: Eric Ding <ericding@alum.mit.edu>, Mark Crimmins
;; Created: 20 Dec 1995
;; Version: 1.0 (29 Nov 2001)
;; Keywords: mh-e, mail, emacs, xemacs
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; This code is based on mh-e-in-frame.el, originally written by Mark
;; Crimmins. The latest version of mh-frame.el can be found at
;; http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/mh-e/contrib/mh-frame.el
;;; Description:
;; Visit (or, if necessary, open) a frame called "MH-E" for mh-rmail,
;; rescan folder and show current message. On mh-quit from +inbox in
;; MH-E frame, delete that frame, and if there's a pid argument
;; argument, kill the proc with that pid (see shell script below).
;;
;; To use mh-frame in emacs, add the following line to your .emacs file:
;;
;; (autoload 'mh-frame "mh-frame" "" t)
;;
;; You can then start up mh-e in a separate frame with
;;
;; M-x mh-frame
;;
;; or you could bind a key to this function:
;;
;; (global-set-key "\C-x\r" 'mh-frame)
;;
;; This elisp code was originally designed to be used with a shell script
;; that calls it via the gnuserv package, which is included in XEmacs, but
;; not in GNU Emacs (YMMV). To use it with GNU emacs, you'll need to install
;; gnuserv yourself. At the time of the writing of this paragraph, you could
;; find gnuserv 3.12.4 at
;;
;; http://meltin.net/hacks/emacs/
;; #!/bin/sh
;; # MH-E: launch an mh-e session in emacs on xwindows
;;
;; exec 2> /dev/null
;; if (gnudoit < /dev/null) ; then
;; true
;; else
;; if xmessage -buttons Yes:0,Cancel:1 "No emacs running gnuserv.
;; Start emacs?" -default Yes
;; then
;; (emacs &)
;; until (exec gnudoit < /dev/null)
;; do sleep 3
;; done
;; fi
;; fi > /dev/null
;;
;; # this is approximately 277 hours
;; sleep 1000000 &
;;
;; # tell emacs what to do and the pid of our sleep process
;; gnudoit -q "(require 'mh-frame)
;; (mh-frame $!)" &
;;
;; # We become a zombie until the sleep process is killed
;; exit
;; ----------------------------------------------------------------------------
;;; Change log:
;; 2001-12-07 Eric Ding <ericding@alum.mit.edu>
;; (mh-frame): use make-frame instead of new-frame (deprecated, temp alias)
;;
;; 2001-11-30 Eric Ding <ericding@alum.mit.edu>
;; (mh-frame): rename get-mh-e-frame to mh-frame-get-mh-frame and move
;; definition out of mh-frame.
;;
;; 2001-11-30 Eric Ding <ericding@alum.mit.edu>
;; rename package to mh-frame
;;
;; Thu Nov 29 09:48:32 2001 Eric Ding <ericding@alum.mit.edu>
;; define frame-name if it's unbound, rather than checking for xemacs
;; release as frame-mh-e 1.0
;;
;; Wed Nov 28 15:47:05 2001 Eric Ding <ericding@alum.mit.edu>
;; use eval-after-load rather than (require 'mh-e)
;;
;; Fri Dec 22 13:58:59 1995 Eric Ding <ericding@alum.mit.edu>
;; added using-xemacs variable
;; added (require 'mh-e)
;; changed naming from mh-* to frame-mh-e-*
;; conditionalized the frame-title-format change in frame-mh-e
;; added confirmation for mh-quit
;; added explicit defuns for hooks
;; changed (add-to-list features...) to (provide 'frame-mh-e)
;;
;; Fri Dec 22 15:17:12 1995 Eric Ding <ericding@alum.mit.edu>
;; changed string-match/eq to equal where appropriate
;;
;; Jan 2 1995 Mark Crimmins
;; ask for quit confirmation only if buffer name is "+inbox".
;; ----------------------------------------------------------------------------
;;; Code:
;;; define frame-name if needed (currently only defined in XEmacs)
(if (not (fboundp 'frame-name))
(defun frame-name (&optional FRAME)
(let ((params (frame-parameters FRAME))
frame-name)
(while (consp params)
(let ((elt (car params)))
(if (eq (car elt) 'name)
(setq frame-name (cdr elt))))
(setq params (cdr params)))
frame-name)))
(defun mh-frame (&optional pid)
(interactive)
(let (f)
(cond ((setq f (mh-frame-get-mh-frame))
(raise-frame f))
(t
(setq f (make-frame '((name . "mh-e"))))))
(select-frame f))
(mh-rmail)
(mh-rescan-folder)
(mh-show)
(setq mh-frame-sh-pid pid))
(defun mh-frame-get-mh-frame ()
(let (a (l (frame-list)))
(while l
(if (equal "mh-e" (frame-name (car l)))
(setq a (car l)))
(setq l (cdr l)))
a))
(eval-after-load "mh-e"
'(progn
(if (not (fboundp 'mh-frame/original-mh-quit))
(fset 'mh-frame/original-mh-quit
(symbol-function 'mh-quit)))
(defun mh-quit ()
(interactive)
(if (equal (buffer-name (current-buffer)) "+inbox")
(cond ((y-or-n-p "Quit mh-e? ")
(setq mh-frame-delete-frame-now t)
(mh-frame/original-mh-quit))
(t (message nil)))
(mh-frame/original-mh-quit)))
))
(defun mh-frame-mh-quit-hook ()
(cond (mh-frame-delete-frame-now
(delete-frame)
(if mh-frame-sh-pid
(shell-command (concat "kill -9 " mh-frame-sh-pid)))
(setq mh-frame-sh-pid nil)
(setq mh-frame-delete-frame-now nil))))
(add-hook 'mh-quit-hook 'mh-frame-mh-quit-hook)
(defun mh-frame-kill-emacs-hook ()
(if mh-frame-sh-pid
(shell-command (concat "kill -9 " mh-frame-sh-pid))))
(add-hook 'kill-emacs-hook 'mh-frame-kill-emacs-hook)
(setq mh-frame-delete-frame-now nil)
(setq mh-frame-sh-pid nil)
(provide 'mh-frame)
;;; mh-frame.el ends
|
