cgit.sxemacs.org Git - packages/blob - xemacs-packages/mew/mew/mew.dot.emacs

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;;
   3 ;;; sample file of .emacs
   4 ;;;
   5 ;
   6 ; This is just a sample. You should customize as you like...
   7 ;
   8
   9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10 ;;;
  11 ;;; Site configuration
  12 ;;;
  13
  14 ;(autoload 'mew "mew" nil t)
  15 ;(autoload 'mew-send "mew" nil t)
  16 ;(setq mew-mail-domain-list '("your mail domain"))
  17 ;(setq mew-icon-directory "icon directory")
  18 ;(autoload 'mew-user-agent-compose "mew" nil t)
  19 ;(if (boundp 'mail-user-agent)
  20 ;    (setq mail-user-agent 'mew-user-agent))
  21 ;(if (fboundp 'define-mail-user-agent)
  22 ;    (define-mail-user-agent
  23 ;      'mew-user-agent
  24 ;      'mew-user-agent-compose
  25 ;      'mew-draft-send-letter
  26 ;      'mew-draft-kill
  27 ;      'mew-send-hook))
  28
  29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30 ;;;
  31 ;;; Window tips
  32 ;;;
  33
  34 ;; If you use XEmacs and your video chip provides only limited
  35 ;; color map(e.g. 256), put the following line to avoid exhaustion
  36 ;; of colors.
  37 ;(setq mew-demo-picture nil)
  38
  39 (cond
  40  ((featurep 'xemacs)
  41 ;  (setq-default buffer-file-coding-system 'iso-2022-jp)
  42 ;  (setq keyboard-coding-system    'iso-2022-jp)
  43 ;  (setq terminal-coding-system    'iso-2022-jp)
  44   (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  45   (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
  46   (delete-menu-item '("Apps" "Read Mail (VM)..."))
  47   (delete-menu-item '("Apps" "Read Mail (MH)..."))
  48   (delete-menu-item '("Apps" "Send mail..."))
  49   (setq toolbar-mail-reader 'Mew)
  50   (setq toolbar-mail-commands-alist
  51         (cons '(Mew . mew) toolbar-mail-commands-alist))
  52   )
  53  ((>= emacs-major-version 20)
  54 ;  (setq standard-fontset-spec14
  55 ;       "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
  56 ;  (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
  57 ;  (setq default-frame-alist
  58 ;       (cons (cons 'font standard-fontset-spec14) default-frame-alist)))
  59   (set-face-font 'bold '(bold) t)
  60   (set-face-font 'italic '(italic) t)
  61   (set-face-font 'bold-italic '(bold italic) t)
  62 ;  (set-language-environment "Japanese")
  63   )
  64  (t ;; Mule 2.3 or Emacs 19
  65   )
  66  )
  67
  68 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  69 ;;;
  70 ;;; Citation tip
  71 ;;;
  72 ;;;
  73 ;;; From: Kazu Yamamoto <Kazu@Mew.org>
  74 ;;; Subject: Hello World
  75 ;;; Date: Thu, 08 Dec 1994 11:44:08 +0900
  76 ;;; Message-Id: <199509291309.WAA21663@decpc07.aist-nara.ac.jp>
  77 ;;;
  78 ;;; kazu> The quick brown fox jumped over the very lazy dog.
  79 ;;;
  80
  81 (setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
  82 (setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
  83 (setq mew-cite-prefix-function 'mew-cite-prefix-username)
  84 ;(setq mew-addrbook-for-cite-label 'nickname)
  85 ;(setq mew-addrbook-for-cite-prefix 'nickname)
  86
  87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  88 ;;;
  89 ;;; Poor OSes
  90 ;;;
  91
  92 ;; If pipe of your OS is not stable, both 'imget' and 'imls' don't
  93 ;; succeed. If so, add the following.
  94 ;(setq mew-connection-type1 t) ;; use PTY
  95
  96 ;; If your OS doesn't have link count for directories, add the following.
  97 ;; This gets bootup faster.
  98 ;(setq mew-folder-list-skip-pattern "^[0-9]+$")
  99
 100 ;;;
 101 ;;; End
 102 ;;;