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
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; sample file of .emacs
;;;
;
; This is just a sample. You should customize as you like...
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Site configuration
;;;
;(autoload 'mew "mew" nil t)
;(autoload 'mew-send "mew" nil t)
;(setq mew-mail-domain-list '("your mail domain"))
;(setq mew-icon-directory "icon directory")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 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
((string-match "XEmacs" emacs-version)
; (setq url-be-asynchronous t)
; (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))
)
((string< "20" emacs-version)
; (setq standard-fontset-spec14
; "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
; (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
; (set-default-font standard-fontset-spec14)
(setup-japanese-environment)
)
(t ;; Mule 2.3 or Emacs 19
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Citation tip
;;;
;;;
;;; From: Kazu Yamamoto <Kazu@Mew.org>
;;; Subject: Hello World
;;; Date: Thu, 08 Dec 1994 11:44:08 +0900
;;; Message-Id: <199509291309.WAA21663@decpc07.aist-nara.ac.jp>
;;;
;;; kazu> 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\nMessage-ID: %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Unstable OSes
;;;
;; If pipe of your OS is not stable, both 'imget' and 'imls' don't
;; succeed. If so, add the following.
;(setq mew-connection-type1 t) ;; use PTY
;;;
;;; End
;;;
|
