.emacs-my
changeset 1327 dd9d74485fb6
parent 1326 7fc5b4f72144
child 1328 a2ce26837465
equal deleted inserted replaced
1326:7fc5b4f72144 1327:dd9d74485fb6
  1752 ;; (setq smtpmail-debug-info t)
  1752 ;; (setq smtpmail-debug-info t)
  1753 
  1753 
  1754 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1754 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1755 (message "gnus, mh-e")
  1755 (message "gnus, mh-e")
  1756 
  1756 
       
  1757 ;; (setq gnus-verbose 10)
       
  1758 
  1757 (setq gnus-site-init-file "~/.gnus.el")
  1759 (setq gnus-site-init-file "~/.gnus.el")
  1758 
  1760 
  1759 (setq
  1761 (setq
  1760  gnus-read-newsrc-file nil
  1762  gnus-read-newsrc-file nil
  1761  gnus-save-newsrc-file nil
  1763  gnus-save-newsrc-file nil
  1771     ))
  1773     ))
  1772 (my--eval-after-load gnus
  1774 (my--eval-after-load gnus
  1773   (add-hook 'kill-emacs-hook 'my-kill-gnus))
  1775   (add-hook 'kill-emacs-hook 'my-kill-gnus))
  1774 
  1776 
  1775 (my--eval-after-load gnus-art
  1777 (my--eval-after-load gnus-art
  1776   (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At")))
  1778   (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At:\\|^List-URL:")))
  1777 
  1779 
  1778 ;; Store gnus specific files to '~/.gnus'.
  1780 ;; Store gnus specific files to '~/.gnus'.
  1779 (setq
  1781 (setq
  1780  gnus-directory "~/.gnus"
  1782  gnus-directory "~/.gnus"
  1781  gnus-agent-directory "~/.gnus/agent/"
  1783  gnus-agent-directory "~/.gnus/agent/"
  1795  )
  1797  )
  1796 
  1798 
  1797 ;; Remove gnus-ignored-newsgroups to show all GMail folders.
  1799 ;; Remove gnus-ignored-newsgroups to show all GMail folders.
  1798 (setq gnus-ignored-newsgroups "some-non-existing")
  1800 (setq gnus-ignored-newsgroups "some-non-existing")
  1799 
  1801 
  1800 ;; (require 'spam)
  1802 (my--eval-after-load gnus
  1801 ;; (setq gnus-spam-process-newsgroups
  1803   (require 'spam)
  1802 ;;       '(("^gmane\\."
  1804   (setq gnus-spam-process-newsgroups
  1803 ;;          ((spam spam-use-gmane)))))
  1805         '(("^gmane\\." ((spam spam-use-gmane))))))
  1804 
  1806 
  1805 (setq
  1807 (setq
  1806  gnus-novice-user nil
  1808  gnus-novice-user nil
  1807  gnus-expert-user nil
  1809  gnus-expert-user nil
  1808  gnus-interactive-catchup t
  1810  gnus-interactive-catchup t