[Fsf-friends] .Emacs and .gnus.el file
Anand Babu
ab@gnu.org.in
Thu Apr 1 21:01:38 IST 2004
,----[ "Frederick Noronha (FN)" <fred@bytesforall.org> ]
| Could someone share with me the file please? Hi AB, how are things? FN
`----
Hi Fred,
Just finished building worlds second fastest super computer running
4096 IA64 processors, 8 TB RAM, quadrics interconnect and
"100% free software". All the software I wrote for it are available
under GNU GPL.
Here are my un-cooked .emacs and .gnus.el files
-ab
==================================[.emacs]===================================
;; ab's .emacs file
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(add-log-mailing-address "ab@gnu.org.in" t)
'(backup-by-copying t)
'(case-fold-search t)
'(current-language-environment "English")
'(delete-old-versions t)
'(dired-listing-switches "-Dhl" t)
'(dired-recursive-copies (quote always))
'(dired-recursive-deletes (quote top))
'(global-font-lock-mode t nil (font-lock))
'(gnus-gcc-externalize-attachments (quote all))
'(gnus-gcc-mark-as-read t)
'(gnus-no-groups-message "No new messages. Cool!, You are free now.")
'(gnus-novice-user nil)
'(imap-default-user "ab")
'(mail-from-style (quote angles))
'(mail-mode-hook (quote (flyspell-mode)))
'(mail-yank-prefix nil)
'(mc-gpg-comment "Processed by Mailcrypt" t)
'(mc-gpg-user-id "ab@gnu.org.in" t)
'(message-citation-line-function (quote ignore))
'(message-from-style (quote angles))
'(message-mode-hook (quote (flyspell-mode)))
'(message-yank-cited-prefix "")
'(message-yank-prefix "")
'(save-place t nil (saveplace))
'(show-paren-mode t nil (paren))
'(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
'(transient-mark-mode t)
'(user-full-name "Anand Babu")
'(user-mail-address "ab@californiadigital.com")
'(version-control t))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)
(menu-bar-mode nil)
(global-set-key "\M-g" 'goto-line)
(global-set-key "\M-a" 'bbdb-show-all-recipients)
;;
;; Provide cool "quoting" of inserted text
;;
(require 'boxquote)
(defun boxquote-region-message ()
"boxquote a reply region in a message"
(interactive)
(fill-region (region-beginning) (region-end))
(boxquote-region (region-beginning) (region-end))
;;(boxquote-title (message-fetch-field "To")))
(boxquote-title (mail-header-from message-reply-headers)))
(defvar ab:boxquote-map
(let ((m (make-sparse-keymap)))
(define-key m (kbd "b") 'boxquote-paragraph)
(define-key m (kbd "i") 'boxquote-insert-file)
(define-key m (kbd "p") 'boxquote-paragraph)
(define-key m (kbd "r") 'boxquote-region)
(define-key m (kbd "t") 'boxquote-title)
(define-key m (kbd "u") 'boxquote-unbox)
(define-key m (kbd "m") 'boxquote-region-message)
(define-key m (kbd "C-y") 'boxquote-yank)
(define-key m (kbd "C-k") 'boxquote-kill)
m)
"Keymap for boxquote functions.")
(global-set-key (kbd "C-c q") ab:boxquote-map)
(require 'mailcrypt-init)
(load "~/lib/emacs/back2dir.el")
(load "~/lib/emacs/eval-replace-hacks.el")
==================================[.emacs]===============================
==============================[.gnus.el-IMAP]============================
;;; .gnus.el: ab's imap configuration.
(require 'bbdb)
(bbdb-initialize 'gnus 'message 'w3 'sc)
;; '((if (message-news-p)
;; "sent-news"
;; "\"Sent\"")))
(setq message-yank-prefix ">")
(setq gnus-novice-user nil)
(setq mail-from-style 'angles)
(setq mail-mode-hook '(flyspell-mode))
(setq message-from-style 'angles)
(setq message-mode-hook '(flyspell-mode))
(global-set-key "\C-p" 'gnus-summary-delete-article)
(global-set-key "\M-TAB" 'bbdb-complete-name)
;;; Say how Gnus is to store the mail. We use nnimap groups.
(setq gnus-select-method '(nnimap "imap.californiadigital.com"))
;; (setq gnus-select-method '(nnml "gnu-india.org"))
;; (setq gnus-secondary-select-methods '((nnml "gnu-india.org")))
(setq gnus-message-archive-method '(nnimap "imap.californiadigital.com"))
(setq gnus-message-archive-group "INBOX.Sent")
(setq mail-sources '((imap :server "imap.californiadigital.com"
:mailbox "INBOX"
:user "ab"
:password "XXXXXX"
:predicate nil ; Get all mail in "INBOX".
:fetchflag "\\Seen"
:dontexpunge t
)
(pop :server "gnu-india.org"
:user "ab@gnu-india.org"
:password "XXXXXX"
:authentication "apop")
))
;;; nnimap splitting
(setq nnimap-split-crosspost t)
(setq nnimap-split-inbox '("INBOX"))
(setq nnimap-split-rule
'(("INBOX" "")))
(setq nnmail-split-abbrev-alist
'((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
(mail . "mailer-daemon\\|postmaster\\|uucp")
(to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
(from . "from\\|sender\\|resent-from")
(list . "list-id\\|x-mailing-list\\|to\\|cc\\|sender")))
;;; nnmail splitting
(setq nnmail-split-methods 'nnmail-split-fancy
nnmail-split-fancy
;; Messages from the mailer daemon are not crossposted to any of
;; the ordinary groups. Warnings are put in a separate group
;; from real errors.
'(| ("from" mail (| ("subject" "warn.*" "mail.warning")
"mail.misc"))
;; Non-error messages are crossposted to all relevant
;; groups, but we don't crosspost between the group for the
;; (ding) list and the group for other (ding) related mail.
(&
;;(| (any "ding@ifi\\.uio\\.no" "ding.list")
;; ("subject" "ding" "ding.misc"))
;; Other mailing lists...
(any "fsf-edu@gnu\\.org\\.in" "FSF_India")
(any "fsf-wg@gnu\\.org\\.in" "FSF_India")
(any "fsf-wg@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-discuss@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-friends@gnu\\.org\\.in" "FSF_India")
(any "fsf-friends@mm\\.gnu\\.org\\.in" "FSF_India")
(any "bug-hurd-admin@gnu\\.org" "GNUslashHurd_Bugs")
(any "l4-hurd@gnu\\.org" "L4_Hurd")
(any "bug-hurd@gnu\\.org" "GNUslashHurd_Bugs")
(any "debian-hurd-request@lists\\.debian\\.org" "Debian_GNUslashHurd")
(any "linux-kernel-digest.*" "Linux Kernel Digest")
(any "gnuyahoo-bugs@lists\\.sourceforge\\.net" "GNUYahoo")
(any ".*guile-devel.*" "GuileDevel")
(any ".*guile-user.*" "GuileUser")
(any ".*guile-sources.*" "GuileSources")
(any "fsf-edu@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-india-dev@gnu\\.org\\.in" "FSF_India")
(any "fsf-india-prog@gnu\\.org\\.in" "FSF_India")
(any "fsf-india@gnu\\.org\\.in" "FSF_India")
(any "gnu-india@gnu-india\\.org" "GNU_India")
(any "reader-list@sarai\\.net" "Sarai")
(any "\\(linux-delhi@lists\\.linux-india\\.org\\|ilugd@wpaa\\.org\\)" "LinuxDelhi")
(any "compsci99@yahoogroups\\.com" "CompSci99")
(any "@citicorp\\.com" "CitiBank")
;; Both lists below have the same suffix, so prevent
;; cross-posting to mkpkg.list of messages posted only to
;; the bugs- list, but allow cross-posting when the
;; message was really cross-posted.
;; (any "bugs-mypackage@somewhere" "mypkg.bugs")
;; (any "mypackage@somewhere" - "bugs-mypackage" "mypkg.list")
;;
;; People...
;; (any "larsi@ifi\\.uio\\.no" "people.Lars Magne Ingebrigtsen"))
(any "rms@gnu\\.org" "RMS")
(any "ab@gnu\\.org\\.in.*" "gnu-org-in")
(any "ab@gnu-india\\.org" "gnu-india-org")
;; (any "ab@fig\\.org" "fig-org")
;; (any "anand.babu@californiadigital\\.com" "CaliforniaDigital")
;; Unmatched mail goes to the catch all group.
)
"mail.misc"))
;; Let's say you subscribe to a couple of mailing lists, and you want
;; the articles you have read to disappear after a while:
;; (setq gnus-auto-expirable-newsgroups
;; "GNUslashHurd_Bugs\\|L4MicroKernel")
;; move all auto-expired mails to nnml:expired group instead
;; deleting
(setq nnmail-expiry-target "nnml:expired")
==============================[.gnus.el-IMAP]============================
==============================[.gnus.el-POP4]============================
;;; .gnus.el: ab's POP3 configuration.
;; ;;; Say how Gnus is to store the mail. We use nnml groups.
(setq gnus-select-method (quote (nnml "gnu-india.org")))
(setq gnus-secondary-select-methods nil)
;; (setq mail-sources (quote ((pop :server "gnu-india.org" :user "ab@gnu-india.org" :password "XXXXXXX" :authentication apop))))
(setq mail-sources '((pop :server "gnu-india.org"
:user "ab@gnu-india.org"
;; :password "XXXXXXX")))
:password "XXXXXXX"
:authentication "apop"))) ;; secure POP protocol
;; (file :path "~/Mail/archive")))
;; Archiving articles
; Set up the archiving.
; In plain terms:
; - Everything will be stored under ~/Mail/archive directory.
; - mail will be stored under that directory in mail/YYYY-MM
; by date.
; - News articles are stored in file news/posted.
(setq gnus-message-archive-group "Archive")
(setq gnus-message-archive-method
'(nnfolder "archive"
(nnfolder-directory "~/Mail/archive")
(nnfolder-active-file "~/Mail/archive/active")
(nnfolder-get-new-mail nil)
(nnfolder-inhibit-expiry t)))
(setq gnus-ignored-from-addresses
(concat "\\(ab@californiadigital\\.com\\)\\|"
"\\(ab@gnu\\.org\\.in\\)\\|"
"\\(anand.babu@californiadigital\\.com\\)"))
;; Disable CC: to self in wide replies and stuff
(setq message-dont-reply-to-names gnus-ignored-from-addresses)
;; when a new followup arrives in a thread, I see the previous
;; messages from that thread, too
;; (setq gnus-fetch-old-headers t)
;; By default, if you have auto expiry switched on, Gnus will mark all
;; the articles you read as expirable, no matter if they were read or
;; unread before. To avoid having articles marked as read marked as
;; expirable automatically, you can put something like the following in
;; your `.gnus' file:
;; (remove-hook 'gnus-mark-article-hook
;; 'gnus-summary-mark-read-and-unread-as-read)
;; (add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)
;; And before you leave for lunch, you hit C-c C-M-x, or M-x
;; gnus-group-expire-all-groups RET
;; (remove-hook 'gnus-summary-prepare-exit-hook
;; 'gnus-summary-expire-articles)
(setq nnmail-split-abbrev-alist
'((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
(mail . "mailer-daemon\\|postmaster\\|uucp")
(to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
(from . "from\\|sender\\|resent-from")
(list . "list-id\\|x-mailing-list\\|to\\|cc\\|sender")))
(setq nnmail-split-methods 'nnmail-split-fancy
nnmail-split-fancy
;; Messages from the mailer daemon are not crossposted to any of
;; the ordinary groups. Warnings are put in a separate group
;; from real errors.
'(| ("from" mail (| ("subject" "warn.*" "mail.warning")
"mail.misc"))
;; Non-error messages are crossposted to all relevant
;; groups, but we don't crosspost between the group for the
;; (ding) list and the group for other (ding) related mail.
(&
;;(| (any "ding@ifi\\.uio\\.no" "ding.list")
;; ("subject" "ding" "ding.misc"))
;; Other mailing lists...
(any "fsf-edu@gnu\\.org\\.in" "FSF_India")
(any "fsf-wg@gnu\\.org\\.in" "FSF_India")
(any "fsf-wg@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-discuss@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-friends@gnu\\.org\\.in" "FSF_India")
(any "fsf-friends@mm\\.gnu\\.org\\.in" "FSF_India")
(any "l4-hurd@gnu\\.org" "GNUslashHurd_Bugs")
(any "l4-hurd-request@gnu\\.org" "GNUslashHurd_Bugs")
(any "bug-hurd-admin@gnu\\.org" "GNUslashHurd_Bugs")
(any "bug-hurd@gnu\\.org" "GNUslashHurd_Bugs")
(any "debian-hurd-request@lists\\.debian\\.org" "Debian_GNUslashHurd")
(any "linux-kernel-digest.*" "Linux Kernel Digest")
(any "freeipmi-devel@nongnu\\.org" "FreeIPMI")
(any "*.freehoo.*" "Freehoo")
(any "gnuyahoo-bugs@lists\\.sourceforge\\.net" "GNUYahoo")
(any ".*guile-devel.*" "GuileDevel")
(any ".*guile-user.*" "GuileUser")
(any ".*guile-sources.*" "GuileSources")
(any "fsf-edu@mm\\.gnu\\.org\\.in" "FSF_India")
(any "fsf-india-dev@gnu\\.org\\.in" "FSF_India")
(any "fsf-india-prog@gnu\\.org\\.in" "FSF_India")
(any "fsf-india@gnu\\.org\\.in" "FSF_India")
(any "gnu-india@gnu-india\\.org" "GNU_India")
(any "reader-list@sarai\\.net" "Sarai")
(any "\\(linux-delhi@lists\\.linux-india\\.org\\|ilugd@wpaa\\.org\\)" "LinuxDelhi")
(any "compsci99@yahoogroups\\.com" "CompSci99")
(any "@citicorp\\.com" "CitiBank")
;; Both lists below have the same suffix, so prevent
;; cross-posting to mkpkg.list of messages posted only to
;; the bugs- list, but allow cross-posting when the
;; message was really cross-posted.
;; (any "bugs-mypackage@somewhere" "mypkg.bugs")
;; (any "mypackage@somewhere" - "bugs-mypackage" "mypkg.list")
;;
;; People...
;; (any "larsi@ifi\\.uio\\.no" "people.Lars Magne Ingebrigtsen"))
(any "rms@gnu\\.org" "RMS")
(any "ab@gnu\\.org\\.in.*" "gnu-org-in")
(any "ab@gnu-india\\.org" "gnu-india-org")
;; (any "ab@fig\\.org" "fig-org")
;; (any "anand.babu@californiadigital\\.com" "CaliforniaDigital")
;; Unmatched mail goes to the catch all group.
)
"mail.misc"))
;; Let's say you subscribe to a couple of mailing lists, and you want
;; the articles you have read to disappear after a while:
;; (setq gnus-auto-expirable-newsgroups
;; "GNUslashHurd_Bugs\\|L4MicroKernel")
;; move all auto-expired mails to nnml:expired group instead
;; deleting
(setq nnmail-expiry-target "nnml:expired")
;;; Make Gnus into an offline newsreader.
;; (gnus-agentize)
==============================[.gnus.el-POP4]============================
--
_.|_
(_||_)
Free as in Freedom <www.gnu.org>
More information about the Fsf-friends
mailing list