;;; mh-letter.el --- MH-Letter mode
-;; Copyright (C) 1993, 1995, 1997, 2000, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 1997,
+;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Shush compiler.
(defvar font-lock-defaults) ; XEmacs
-;; Ensure new buffers won't get this mode if default-major-mode is nil.
+;; Ensure new buffers won't get this mode if default major-mode is nil.
(put 'mh-letter-mode 'mode-class 'special)
;;;###mh-autoload
mh-default-folder-for-message-function)))
"")
t)))
- (let ((last-input-char ?\C-f))
+ (let ((last-input-event ?\C-f))
(expand-abbrev)
(save-excursion
(mh-to-field)
Set the mark to point before moving."
(interactive)
(expand-abbrev)
- (let ((target (cdr (or (assoc (char-to-string (logior last-input-char ?`))
+ (let ((target (cdr (or (assoc (char-to-string (logior last-input-event ?`))
mh-to-field-choices)
;; also look for a char for version 4 compat
- (assoc (logior last-input-char ?`)
+ (assoc (logior last-input-event ?`)
mh-to-field-choices))))
(case-fold-search t))
(push-mark)
(let ((eol (point)))
(skip-chars-backward " \t")
(delete-region (point) eol))
- (if (and (not (eq (logior last-input-char ?`) ?s))
+ (if (and (not (eq (logior last-input-event ?`) ?s))
(save-excursion
(backward-char 1)
(not (looking-at "[:,]"))))
and `mh-ins-buf-prefix' is not inserted."
(interactive)
(if (and mh-sent-from-folder
- (save-excursion (set-buffer mh-sent-from-folder) mh-show-buffer)
- (save-excursion (set-buffer mh-sent-from-folder)
- (get-buffer mh-show-buffer))
+ (with-current-buffer mh-sent-from-folder mh-show-buffer)
+ (with-current-buffer mh-sent-from-folder
+ (get-buffer mh-show-buffer))
mh-sent-from-msg)
(let ((to-point (point))
(to-buffer (current-buffer)))