洛阳铲的日志

2004年11月2日

整了个mew,重新设置了.emacs

Filed under: Linux Emacs .emacs DotFile MEW — HackGou @ 20:36

整了个mew,重新设置了.emacs。如下:

;;; XEmacs backwards compatibility file
(setq user-init-file
      (expand-file-name “init.el”
   (expand-file-name “.xemacs” “~”)))
(setq custom-file
      (expand-file-name “custom.el”
   (expand-file-name “.xemacs” “~”)))

(custom-set-variables
       ‘(meta-prefix-char 18))
;
(load-file user-init-file)
;
(load-file custom-file)
;关闭错误警告
(setq visible-bell t)

;关闭”开机提示”
(setq inhibit-startup-message t)

;打开行号显示
(setq column-number-mode t)

;标题栏显示buffer的名字,而不是emacs@hackgou
(setq frame-title-format “%b”)

;可以直接大开和显示图片
(auto-image-file-mode)

;语法加亮
(global-font-lock-mode t)

;调整粘贴选项
(set-clipboard-coding-system ‘ctext)

;显示当前时间
(display-time)

;为mew设置的选项
(autoload ‘mew “mew” nil t)
(autoload ‘mew-send “mew” nil t)
(setq mew-icon-directory “/usr/local/lib/emacs/etc/Mew”)
(if (boundp ‘read-mail-command)
    (setq read-mail-command ‘mew))
(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))
(setq mew-pop-size 0)
;(setq mew-smtp-auth-list nil)
(setq toolbar-mail-reader ‘Mew)
(set-default ‘mew-decode-quoted ‘t) 
(setq mew-prog-pgp “gpg”)
(setq mew-name “憨狗”)
(setq mew-user “HackGou”)
;;mew smtp服务器设置
(setq mew-smtp-user “hackgou@yeah.net“)
(setq mew-mail-domain “smtp.yeah.net”)
(setq mew-smtp-auth-list ‘login)
(setq mew-smtp-server “smtp.yeah.net”)
;;mew pop服务器设置
(setq mew-pop-server “pop.yeah.net”)
(setq mew-pop-user “hackgou@yeah.net“)
(setq mew-pop-auth ‘pass) ;;认证方式
(setq mew-pop-delete nil)
(setq mew-use-cached-passwd t)
(setq mew-nntp-server “NNTP服务器”)
(setq mew-icon-directory (expand-file-name “mew/etc” dtsite-dir))
(when (boundp ‘utf-translate-cjk)
      (setq utf-translate-cjk t)
      (custom-set-variables
         ‘(utf-translate-cjk t)))
(if (fboundp ‘utf-translate-cjk-mode)
    (utf-translate-cjk-mode 1))
(require ‘flyspell) ;;非常好用的英文的拼写检查

—–

没有评论 »

No comments yet.

RSS feed for comments on this post. TrackBack URL

Leave a comment

Powered by WordPress