* elmo-mime.el (elmo-mime-display-as-is-internal): Put text

[elisp/wanderlust.git] / wl / wl-nemacs.el

diff --git a/wl/wl-nemacs.el b/wl/wl-nemacs.el
index fa0f2d0..112f46b 100644 (file)
--- a/wl/wl-nemacs.el
+++ b/wl/wl-nemacs.el
@@ -1,6 +1,6 @@
 ;;; wl-nemacs.el -- Wanderlust modules for Nemacs.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -53,10 +53,6 @@
 (defmacro wl-defface (face spec doc &rest args)
   (` (defvar (, face) (, spec) (, doc))))
 
-(defsubst elmo-archive-call-process (prog args &optional output)
-  (apply 'call-process prog nil output nil args)
-  0)
-
 (defun wl-draft-mode-setup ()
   (defalias 'wl-draft-mode 'mail-mode))
 (defun wl-draft-key-setup ())
@@ -78,6 +74,7 @@
   (local-set-key "\C-c\C-r" 'wl-draft-caesar-region)
   (local-set-key "\M-t"     'wl-toggle-plugged)
   (local-set-key "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (local-set-key "\C-c\C-e" 'wl-draft-config-exec)
   (local-set-key "\C-c\C-j" 'wl-template-select)
   (local-set-key "\C-c\C-p" 'wl-draft-preview-message)
   (local-set-key "\C-x\C-s" 'wl-draft-save)
@@ -126,14 +123,13 @@ However, if `mail-yank-prefix' is non-nil, insert that prefix on each line."
                                  (forward-char -1)
                                  (point))))))))
 
-(defun-maybe find-file-name-handler (filename operation))
+(defun wl-read-event-char ()
+  "Get the next event."
+  ;; Nemacs does not have read-char-exclusive().
+  (let ((event (read-char)))
+    (cons (and (numberp event) event) event)))
 
-(defun-maybe read-event ()
-  (setq unread-command-events
-       (if (fboundp 'read-char-exclusive)
-           (read-char-exclusive)
-         ;; XXX Emacs18.59 does not have read-char-exclusive().
-         (read-char))))
+(defun-maybe find-file-name-handler (filename operation))
 
 (defmacro easy-menu-define (a b c d)
   (` (defvar (, a) nil (, c))))