●「.mew.el」の内容。コメントアウトした行は一部削除してある。
元ファイルは、/usr/share/doc/mew/examples/mew.dot.emacs.gz。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; sample file of .emacs or .mew.el
;;;
;
; This is just a sample. You should customize as you like...
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Site configuration
;;;

;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))
;
;; Optional setup (e.g. C-xm for sending a message):
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-message
      'mew-draft-kill
      'mew-send-hook))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Window tips
;;;

;; If you use XEmacs and your video chip provides only limited
;; color map(e.g. 256), put the following line to avoid exhaustion
;; of colors.
;(setq mew-demo-picture nil)

(cond
 ((featurep 'xemacs)
;  (setq-default buffer-file-coding-system 'iso-2022-jp)
;  (setq keyboard-coding-system    'iso-2022-jp)
;  (setq terminal-coding-system    'iso-2022-jp)
  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
  (delete-menu-item '("Apps" "Read Mail (VM)..."))
  (delete-menu-item '("Apps" "Read Mail (MH)..."))
  (delete-menu-item '("Apps" "Send mail..."))
  (setq toolbar-mail-reader 'Mew)
  (setq toolbar-mail-commands-alist
	(cons '(Mew . mew) toolbar-mail-commands-alist)))
 ((>= emacs-major-version 21)
;  (set-language-environment "Japanese")
  )
 ((>= emacs-major-version 20)
  (setq standard-fontset-spec14
	"-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
  (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
  (setq default-frame-alist 
	(cons (cons 'font standard-fontset-spec14) default-frame-alist))
  (set-face-font 'bold '(bold) t)
  (set-face-font 'italic '(italic) t)
  (set-face-font 'bold-italic '(bold italic) t)
  (set-language-environment "Japanese")
  )
 (t ;; Mule 2.3 or Emacs 19
  ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Citation tip
;;;
;;;
;;; From: Kazu-kun
;;; Subject: Hello World
;;; Date: Thu, 08 Dec 1994 11:44:08 +0900
;;; Message-Id: <199509291309.WAA21663@decpc07.aist-nara.ac.jp>
;;;
;;; Kazu-kun> The quick brown fox jumped over the very lazy dog.
;;;

(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;(setq mew-addrbook-for-cite-label 'nickname)
;(setq mew-addrbook-for-cite-prefix 'nickname)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Using "Mozilla"
;;;

(setq mew-prog-text/html-ext "mozilla")

(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
(setq browse-url-netscape-program "mozilla")
(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")

;;;
;;; ~/.emacs settings.
;;;
;;; ... anything browse-url setting ...
(eval-after-load "mew" '(require 'mew-browse))

;;; SHIFT + (Middle|Right)-Click = browse-url or mew-user-agent-compose
;;; for Emacs
;; (define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;;; for XEmacs
(define-key global-map [(shift button2)] 'browse-url-at-mouse)
;;

;;;
;;; End
;;;

;; draftにあらかじめinsertするファイル
(add-hook 'mew-draft-mode-newdraft-hook
	  (lambda ()
	    (let ((p (point)))
	      (goto-char (point-max))
	      (insert-file "Mail/greeting")
	      (goto-char p))))

;; メッセージを印刷する
(setq mew-print-command-format "nkf -e | cut_mail_header.pl | e2ps -a4 -p -head mew_message | lpr2")
(defun mew-print-region (begin end)
     (interactive "r")
     (shell-command-on-region begin end mew-print-command-format))
(defun mew-print-buffer ()
    (interactive)
    (mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))