Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-mh-e.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 2d532a89d707
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> 6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1993/11/21 (obsolete mh-e-mime.el) 8 ;; Created: 1993/11/21 (obsolete mh-e-mime.el)
9 ;; Version: $Revision: 1.1.1.1 $ 9 ;; Version: $Revision: 1.1.1.2 $
10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual 10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
11 11
12 ;; This file is part of tm (Tools for MIME). 12 ;; This file is part of tm (Tools for MIME).
13 13
14 ;; This program is free software; you can redistribute it and/or 14 ;; This program is free software; you can redistribute it and/or
46 46
47 ;;; @ version 47 ;;; @ version
48 ;;; 48 ;;;
49 49
50 (defconst tm-mh-e/RCS-ID 50 (defconst tm-mh-e/RCS-ID
51 "$Id: tm-mh-e.el,v 1.1.1.1 1996/12/18 22:43:38 steve Exp $") 51 "$Id: tm-mh-e.el,v 1.1.1.2 1996/12/21 20:50:46 steve Exp $")
52 52
53 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) 53 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
54 54
55 55
56 ;;; @ variable 56 ;;; @ variable
212 (let (tm-mh-e/automatic-mime-preview 212 (let (tm-mh-e/automatic-mime-preview
213 tm-mh-e/decode-encoded-word) 213 tm-mh-e/decode-encoded-word)
214 (mh-header-display) 214 (mh-header-display)
215 )) 215 ))
216 216
217 (defun tm-mh-e/scroll-up-msg (&optional arg)
218 (interactive)
219 (mh-page-msg (or arg 1))
220 )
221
222 (defun tm-mh-e/scroll-down-msg (&optional arg)
223 (interactive)
224 (mh-page-msg (- (or arg 1)))
225 )
226
227 (defun tm-mh-e/burst-multipart/digest () 217 (defun tm-mh-e/burst-multipart/digest ()
228 "Burst apart the current message, which should be a multipart/digest. 218 "Burst apart the current message, which should be a multipart/digest.
229 The message is replaced by its table of contents and the letters from the 219 The message is replaced by its table of contents and the letters from the
230 digest are inserted into the folder after that message." 220 digest are inserted into the folder after that message."
231 (interactive) 221 (interactive)
289 (save-excursion 279 (save-excursion
290 (set-buffer buf) 280 (set-buffer buf)
291 (goto-char (point-max)) 281 (goto-char (point-max))
292 (setq mh-show-buffer buf) 282 (setq mh-show-buffer buf)
293 (apply (function mh-send) 283 (apply (function mh-send)
294 (std11-field-bodies '("To" "cc" "Subject") "")) 284 (std11-field-bodies '("From" "cc" "Subject") ""))
295 (setq mh-sent-from-folder buf) 285 (setq mh-sent-from-folder buf)
296 (setq mh-sent-from-msg 1) 286 (setq mh-sent-from-msg 1)
297 (let ((last (point))) 287 (let ((last (point)))
298 (mh-yank-cur-msg) 288 (mh-yank-cur-msg)
299 (goto-char last) 289 (goto-char last)
338 (define-key mh-folder-mode-map "v" (function tm-mh-e/view-message)) 328 (define-key mh-folder-mode-map "v" (function tm-mh-e/view-message))
339 (define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode)) 329 (define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode))
340 (define-key mh-folder-mode-map "." (function tm-mh-e/show)) 330 (define-key mh-folder-mode-map "." (function tm-mh-e/show))
341 (define-key mh-folder-mode-map "," (function tm-mh-e/header-display)) 331 (define-key mh-folder-mode-map "," (function tm-mh-e/header-display))
342 (define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display)) 332 (define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display))
343 (define-key mh-folder-mode-map "\r" (function tm-mh-e/scroll-up-msg))
344 (define-key mh-folder-mode-map "\e\r" (function tm-mh-e/scroll-down-msg))
345 (define-key mh-folder-mode-map "\C-c\C-b" 333 (define-key mh-folder-mode-map "\C-c\C-b"
346 (function tm-mh-e/burst-multipart/digest)) 334 (function tm-mh-e/burst-multipart/digest))
347 335
348 (defun tm-mh-e/summary-before-quit () 336 (defun tm-mh-e/summary-before-quit ()
349 (let ((buf (get-buffer mh-show-buffer))) 337 (let ((buf (get-buffer mh-show-buffer)))