.emacs-my
changeset 739 65e6b1b497fb
parent 738 2a81232aa82f
child 740 5dd70683a699
equal deleted inserted replaced
738:2a81232aa82f 739:65e6b1b497fb
   886 (add-hook 'text-mode-hook 'turn-on-auto-fill)
   886 (add-hook 'text-mode-hook 'turn-on-auto-fill)
   887 
   887 
   888 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   888 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   889 (message "unknown")
   889 (message "unknown")
   890 
   890 
   891 ;; mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
   891 ;; mailcrypt message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
   892 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
   892 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
   893 ;; chord-mode - edit guitar music
   893 ;; chord-mode - edit guitar music
   894 ;; discography - variant of BibTeX mode for discographies
   894 ;; discography - variant of BibTeX mode for discographies
   895 
   895 
   896 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   896 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1138 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1138 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1139 (message "fortune")
  1139 (message "fortune")
  1140 (setq fortune-file "~/XXX")
  1140 (setq fortune-file "~/XXX")
  1141 
  1141 
  1142 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1142 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1143 (message "mail, mh-e")
  1143 (message "mail, gnus, mh-e")
  1144 
  1144 
  1145 (setq mail-signature t)
  1145 (setq mail-signature t)
  1146 (setq mail-signature-file "~/.signature")
  1146 (setq mail-signature-file "~/.signature")
  1147 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
  1147 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
  1148 
  1148 
       
  1149 (setq
       
  1150  gnus-novice-user t
       
  1151  gnus-expert-user nil
       
  1152  gnus-interactive-catchup t
       
  1153  gnus-interactive-exit t
       
  1154  )
       
  1155 
       
  1156 (setq
       
  1157  gnus-read-active-file nil
       
  1158  gnus-check-new-newsgroups nil
       
  1159  gnus-check-bogus-newsgroups nil
       
  1160  )
       
  1161 
  1149 ;; (setq mail-user-agent 'mh-e-user-agent)
  1162 ;; (setq mail-user-agent 'mh-e-user-agent)
       
  1163 
       
  1164 ;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)
       
  1165 ;; `gnus-score-followup-thread'
       
  1166 ;; `gnus-score-followup-article'
       
  1167 
       
  1168 
       
  1169 ;; (setq gnus-use-adaptive-scoring t)
       
  1170 
       
  1171 ;; (setq gnus-home-score-file
       
  1172 ;;       ;; All groups that match the regexp `"\\.emacs"'
       
  1173 ;;       '(("\\.emacs" "emacs.SCORE")
       
  1174 ;;         ;; All the comp groups in one score file
       
  1175 ;;         ("^comp" "comp.SCORE")))
  1150 
  1176 
  1151 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1177 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1152 (message "jabber")
  1178 (message "jabber")
  1153 
  1179 
  1154 (autoload 'jabber-connect-all "jabber")
  1180 (autoload 'jabber-connect-all "jabber")