PERL   69

dot gnus

Guest on 18th August 2022 01:25:12 AM

  1. ;; Alexandre Dulaunoy - adulau@foo.be gnus (http://www.gnus.org)
  2. ;;
  3. ;; Basic configuration (variable source from Internet and custom)
  4. ;;
  5. ;; Set the select methodes for mail and news
  6.  
  7. (setq nntp-connection-timeout 3000)
  8. (setq nntp-command-timeout 3000)
  9.  
  10. (setq gnus-select-method '(nntp "news.skynet.be"))
  11. (setq gnus-secondary-select-methods
  12.      '((nnml "private")))
  13. ;       (nnslashdot "")))
  14.  
  15. '(setq smtpmail-smtp-server "localhost")
  16.  
  17. ;(setq gnus-visible-headers "^Date:\\|^From:")
  18. ;(setq gnus-visible-headers "^Date:\\|^Newsgroups:.*,")
  19. ;(setq gnus-visible-headers nil)
  20. ;(setq gnus-ignored-headers "^Subject:\\|^Newsgroups:.[^,]")
  21. ;(setq gnus-treat-hide-boring-headers nil)
  22.  
  23. (defconst gnus-visible-headers
  24.      (concat
  25.       "^From:\\|"
  26.       "^Organization:\\|"
  27.       "^Newsgroups:\\|"
  28.       "^Subject:\\|"
  29.       "^Date:\\|"
  30.       "^Followup-To:\\|"
  31.       "^Reply-To:\\|"
  32.       "^X-Newsreader:\\|"
  33.       "^X-Mailer:\\|"
  34.       "^User-Agent:\\|"
  35.       "^X-Operating-System:")
  36.      "Default visible headers")
  37.  
  38. ;; Set some custom variables
  39. (setq gnus-build-sparse-threads         nil
  40.      gnus-fetch-old-headers nil
  41.      gnus-show-mime                      t
  42.      gnus-thread-indent-level            2
  43.      gnus-summary-make-false-root   'empty
  44.       nnmail-spool-file "/var/spool/mail/adulau"
  45.       gnus-thread-sort-functions '(gnus-thread-sort-by-number
  46.                                    gnus-thread-sort-by-total-score)
  47.      gnus-use-trees nil
  48.      user-full-name "Alexandre Dulaunoy"      
  49.      user-mail-address "adulau@foo.be"
  50.      mail-host-address "foo.be"
  51.      gnus-thread-hide-subtree t
  52.      gnus-topic-display-empty-topics nil
  53.      gnus-thread-indent-array-level 1
  54.      message-cite-function 'message-cite-original-without-signature
  55.       message-user-organization "http://www.foo.be/"
  56.       gnus-check-new-newsgroups 'ask-server
  57.      gnus-cite-prefix-regexp "^[]#>|:}+ ]*[]#>|:}+]\\(.*>\\)?\\|^.*>"
  58.      gnus-not-empty-thread-mark ?\+
  59.  
  60. ;; Set which standard headers should be used
  61. ;      message-required-news-headers '(From Newsgroups Subject Date Organization Lines (optional . X-Newsreader))
  62. ;;      message-default-headers "Mime-Version: 1.0\nContent-Type: text/plain; charset=iso-8859-1\nContent-Transfer-Encoding: 8bit\n"
  63.       )
  64.  
  65.  
  66. (setq gnus-permanently-visible-groups "nnml\\+archive")
  67. (setq message-required-news-headers (remove 'Message-ID message-required-news-headers))
  68.  
  69. (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
  70. (add-hook 'gnus-article-display-hook 'gnus-article-highlight)
  71.  
  72. (load-library "mailcrypt")
  73. (mc-setversion "gpg")
  74.  
  75. (autoload 'mc-install-write-mode "mailcrypt" nil t)
  76. (autoload 'mc-install-read-mode "mailcrypt" nil t)
  77. (add-hook 'mail-mode-hook 'mc-install-write-mode)
  78.  
  79. ;; Hooking into gnus
  80. (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
  81. (add-hook 'message-mode-hook 'mc-install-write-mode)
  82. (add-hook 'news-reply-mode-hook 'mc-install-write-mode)
  83.  
  84.  
  85.  
  86.  
  87. ;;(load "~/.emacs.d/mailcrypt.el")
  88. ;;(load "~/.sitelisp/gnus_secure_add.el")
  89.  
  90. ;;(load "~/.emacs.d/bbdb.el")
  91. (load "~/.emacs.d/gnus_easy_threading.el")
  92. (load "~/.emacs.d/gnus_splitting.el")
  93. (load "~/.emacs.d/gnus_bindings.el")
  94.  
  95. (setq gnus-group-line-format "%M%S%p%P%5y: %g%l\n")
  96. (setq gnus-summary-line-format "%U%R%z%I%[%4L: %-20,20a%] %s\n")
  97.  
  98. (add-hook 'gnus-after-exiting-gnus-hook
  99.           (function (lambda()
  100.                       (bbdb-save-db)
  101.                       (bbdb-bury-buffer))))
  102.  
  103. (defun my-gnus-summary-default-format ()
  104.   ""
  105.   (interactive)
  106.   (setq gnus-summary-line-format "%U%R%z%I%[%4L: %-20,20a%] %s\n"))
  107.  
  108. (defun my-gnus-summary-long-format ()
  109.   ""
  110.   (interactive)
  111.   (setq gnus-summary-line-format "%N %t %U%R%z%I%4L %(%[%d: %-20,20a%]%) %4i %S\n"))
  112.  
  113. (defun message-insert-citation-line-de ()
  114.   "Citation insert"
  115.   (when message-reply-headers
  116.     (insert (mail-header-from message-reply-headers) " write :\n\n")))
  117.  
  118. (setq gnus-posting-styles
  119.       '((".*"
  120.         ("From" "Alexandre Dulaunoy <adulau@foo.be>")
  121.         ("X-NO-DMCA-EUCD" "true")
  122.         ("X-GnuPG-Keyid" "44E6CBCD")
  123.         ("X-GnuPG-Fingerprint" "3B12 DCC2 82FA 2931 2F5B 709A 09E2 CD49 44E6 CBCD")
  124.         ("X-Mailer" gnus-extended-version)
  125.          (eval
  126.           (setq message-citation-line-function
  127.                 'message-insert-citation-line)))
  128.         ("^de\."
  129.          (eval
  130.           (setq message-citation-line-function
  131.                 'message-insert-citation-line-de)))
  132.         ))
  133.  
  134. (gnus-compile)
  135.  
  136. ;; EOF ;;

Raw Paste


Login or Register to edit or fork this paste. It's free.