[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debian-users:16795] Re: exim+im

荒船です。# 長いです。ごめんなさい
状況がよくわからないので、何とも言えないのですが、
参考までに私の .emacs と .im/Config をつけておきます。
(わたしは、 smail 使用なので、参考にならなかったらごめんなさい)
あくまでも参考までということで、
# また、適宜見せたくない部分は消しています
ただ、多くの場合次のことをまずチェックされた方がいいと思います。


◎ 必要なパッケージが"ちゃんと"インストールされているか？
	dpkg -C が参考になるかもしれません。
◎ .emacs の記述が適切か？
 emacs 起動直後の *Message* バッファーが参考になるかもしれません。


# それでもわからないという場合にはまたどうぞ、なんなら直接でも可です。
# (時間があればですが)答えます。

------.im/Config
MailDir=Mail
NewsDir=News
Address=arafune@xxxxxxxxxxxxxxxxxxxxxxxxx
InboxFolder=+inbox
DraftFolder=+draft
TrashFolder=+trash
ScanSbr=scan.sbr
AliasesFile=~/.im/Aliases
PetnameFile=~/.im/Petnames
Imget.Src=imap
Form=%5n %m%d %-19A %S 
FromDomain=××.××.×
ToDomain=××.××.×
Smtpservers=××.××.×
NntpServers=××.××.×
ImapAccount=/AUTH@××.××.×
FccDir=$MailDir

case debian
FromDomain=debian.or.jp

-------- .emacs (mew related part)
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("arafune.ushioda.riec.tohoku.ac.jp"))
(global-set-key "\C-xm" 'mew)
(setq mew-mail-address "arafune@xxxxxxxxxxxxxxxxxxxxxxxxx")
(cond
 ((string-match "XEmacs" emacs-version)
  (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)
  (setup-japanese-environment)
  )
 (t ;; Mule 2.3 or Emacs 19
  )
 )
(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)
(setq mew-fcc "+outgoing")
(setq mew-window-use-full t)
(setq mew-draft-mode-hook (function (lambda () (auto-fill-mode 1))))
(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
(autoload 'insert-signature-eref "c-sig" "c-sig" t)          ;; 対話的に選択する。
(autoload 'insert-signature-automatically "c-sig" "c-sig" t) ;; データベースからの検索結果に従って自動的に挿入する。
(autoload 'insert-signature-randomly "c-sig" "c-sig" t)      ;; ランダムに挿入する。
        ;;; Mewでシグネチャを対話的に選択する設定

(add-hook 'mew-draft-mode-hook
	  (function (lambda ()
		      (define-key mew-draft-mode-map
			"\C-c\C-i" 'insert-signature-eref)))) 

(setq mew-config-guess-alist
      '(("To:"
	 ("debian" . "debian"))))
(setq mew-config-insert-when-composed t)
(setq mew-use-folders-file-p t)
(setq mew-use-highlight-body t)

(setq mew-print-command-format "a2psj | lpr")
(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))
(setq mew-auto-get nil)
(setq mew-use-imap t)
(setq mew-auto-get nil)
(setq mew-refile-guess-alist
      '(
	("X-ML-Name:"
	 ("debian-devel" . "+ML/debian-devel")
	 ("debian-users" . "+ML/debian-users")
	 ("debian-doc"   . "+ML/debian-doc")
	 ("debian-private" . "+ML/debian-private")
	 )
	("X-Mailing-List:"
	 ("debian-devel@lists.debian.org" . "+ML/debian-devel.Official")
	 ("debian-private@lists.debian.org" . "+ML/debian-private.Official")
	 )
	)
      )
(setq  mew-refile-guess-control
      '(mew-refile-guess-by-alist
	mew-refile-guess-by-newsgroups
	mew-refile-ctrl-auto-boundary
	mew-refile-guess-by-folder
	mew-refile-ctrl-throw
	mew-refile-guess-by-msgid
	mew-refile-guess-by-from
	mew-refile-guess-by-default))
(setq mew-summary-trace-directory nil)
(setq mew-highlight-body-keywords
  '(("^[　 \t]*\\(\\w*[A-Za-z0-9'-]*[>|]+.*\\)"
     mew-highlight-body-face-quote)
    ("^[ 　\t]*[#＃]+.*"
     mew-highlight-body-face-comment)))
(setq mew-header-alist
      '(("X-fingerprint:" . "AA F3 B9 3E F2 F0 5D 42  6F 4A 2F 60 35 4A 24 5D")
	))
(if (featurep 'xemacs)
             ()
(define-key global-map [S-mouse-2] 'browse-url-at-mouse))

(setq mew-highlight-header-color-marginal  "chocolate")
(setq mew-highlight-body-color-comment "chocolate")

-----------