.emacs-my
changeset 779 df488c333452
parent 778 5caafff0b291
child 780 afc4ee8b5dea
equal deleted inserted replaced
778:5caafff0b291 779:df488c333452
  1158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1159 (message "fortune")
  1159 (message "fortune")
  1160 (setq fortune-file "~/XXX")
  1160 (setq fortune-file "~/XXX")
  1161 
  1161 
  1162 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1162 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  1163 (message "mail, message")
       
  1164 
       
  1165 (setq mail-signature t)
       
  1166 (setq mail-signature-file "~/.signature")
       
  1167 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
       
  1168 
       
  1169 ;; (setq mail-from-style 'angles)
       
  1170 
       
  1171 (setq mail-personal-alias-file "~/.mailrc")
       
  1172 ;; Initialize from your mail aliases file...
       
  1173 (setq mail-aliases t)
       
  1174 
       
  1175 (eval-after-load 'message
       
  1176   '(progn
       
  1177      (require 'mailabbrev)
       
  1178      (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
       
  1179      ))
       
  1180 
       
  1181 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
       
  1182 (setq message-kill-buffer-on-exit t)
       
  1183 
       
  1184 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1163 (message "smtp, smtpmail")
  1185 (message "smtp, smtpmail")
  1164 
  1186 
  1165 (when (boundp 'smtpmail-smtp-server)
  1187 (when (boundp 'smtpmail-smtp-server)
  1166   (require 'smtpmail)
  1188   (require 'smtpmail)
  1167   (setq
  1189   (setq
  1178   (setq fill-column 78)
  1200   (setq fill-column 78)
  1179   )
  1201   )
  1180 (add-hook 'message-mode-hook 'my-message-mode-hook)
  1202 (add-hook 'message-mode-hook 'my-message-mode-hook)
  1181 
  1203 
  1182 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1204 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1183 (message "mail, gnus, mh-e")
  1205 (message "gnus, mh-e")
  1184 
       
  1185 (setq mail-signature t)
       
  1186 (setq mail-signature-file "~/.signature")
       
  1187 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
       
  1188 
       
  1189 ;; (setq mail-from-style 'angles)
       
  1190 
       
  1191 (setq mail-personal-alias-file "~/.mailrc")
       
  1192 ;; Initialize from your mail aliases file...
       
  1193 (setq mail-aliases t)
       
  1194 
       
  1195 (eval-after-load 'message
       
  1196   '(progn
       
  1197      (require 'mailabbrev)
       
  1198      (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
       
  1199      ))
       
  1200 
       
  1201 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
       
  1202 (setq message-kill-buffer-on-exit t)
       
  1203 
  1206 
  1204 (setq gnus-site-init-file "~/.gnus.el")
  1207 (setq gnus-site-init-file "~/.gnus.el")
  1205 
  1208 
  1206 (setq
  1209 (setq
  1207  gnus-novice-user t
  1210  gnus-novice-user t