From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Keywords: 5525434 X-Comment-To: Sergey Bolshakov To: community@altlinux.ru Subject: Re: [Comm] Xemacs Mailcrypt =?koi8-r?b?yQ==?= GPG =?koi8-r?b?0NLPwszFzcE=?= References: From: Igor Anikeev Date: 13 May 2003 23:38:14 +0400 In-Reply-To: Message-ID: User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Military Intelligence) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Sender: community-admin@altlinux.ru Errors-To: community-admin@altlinux.ru X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.0.9 Precedence: bulk Reply-To: community@altlinux.ru List-Unsubscribe: , List-Id: List-Post: List-Help: List-Subscribe: , List-Archive: Archived-At: List-Archive: List-Post: --=-=-= Content-Type: text/plain; charset=koi8-r Content-Transfer-Encoding: base64 883P1NLFzCDJ2iBLTWFpbGEgLSDHz9fP0snULCDe1M8g0M/E0MnT2CDQ0s/T1M8gy8zB09PO wdEsIMEg18/UINTFy9PUOg0KIn5+fn5+fn4iLCDO1Swgy8HLIMkg1yDQ0s/bzNnKINLB2i4g IPDSycHU1MHexc7ZIHtpbml0LGN1c3RvbX0uZWwgLmVtYWNzDQrJ --=-=-= Content-Disposition: attachment; filename=.gnus Content-Description: gnus ; -*- emacs-lisp -*- ;============= ; Your personal settings (setq user-mail-address "insider@t-k.ru") (setq user-full-name "Igor Anikeev") ;============= ;; Your newsserver (setq gnus-inhibit-startup-message t gnus-use-sc t gnus-use-trees nil gnus-select-method '(nntp "insider.home")) ;; Mail Configuration (setq gnus-secondary-select-methods '((nnml "private"))) (setq nnmail-split-methods '(("personal" "^To:.*insider@t-k.ru") ("altlinux.community" "^List-Id: ") ("altlinux.talkroom" "^List-Id: ") ("altlinux.legal" "^List-Id: ") ("altlinux.ruby" "^List-Id: Ruby usage and development around it ") ("sf.net" "^From:.*SourceForge.net") ("netbeans.discuss-ru" "^From: nbdiscuss_ru-help@netbeans.org") ("netbeans.announce" "^list-post: ") ("netbeans.openide" "^list-post: ") ("netbeans.ui" "^list-post: ") ("netbeans.users" "^list-post: ") ("other" ""))) (setq send-mail-function 'smtpmail-send-it) (setq message-send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "127.0.0.1") ;; wrap messages at 72 (add-hook 'message-mode-hook (lambda() (setq fill-column 72) (turn-on-auto-fill))) ;; locally store sent mail and news (setq gnus-message-archive-group '((if (message-news-p) "nnml:Send-News" "nnml:Send-Mail"))) (add-hook 'message-send-hook 'my-message-add-content) (defun my-message-add-content () (message-add-header "Keywords: 5525434")) (add-hook 'message-setup-hook '(lambda () ;; Add X-Comment-To: field. We need From: field from original ;; letter. How to get right? (if message-reply-buffer (let ((cur-buffer (current-buffer)) from-field) (save-excursion (set-buffer message-reply-buffer) (if (string-match "^From:" (buffer-string)) (progn (setq from-start (+ (match-end 0) 1)) (goto-char from-start) (end-of-line) (setq from-field (buffer-substring from-start (point)))))) (if from-field (save-excursion (goto-char (point-min)) (insert "X-Comment-To: " (Make-Comment-To from-field) "\n")))) ))) (defun Make-Comment-To (from) (if (string-match " *<.*> *" from) (concat (substring from 0 (match-beginning 0)) (substring from (match-end 0))) (if (string-match "\(.*\)" from) (substring from (+ (match-beginning 0) 1) (- (match-end 0) 1)) from ) ) ) ; ;From: Ivan Crivoruchko ;================================================ (defun sc-break-cited-line () "Break cited line. Do it correctly." (interactive) (delete-horizontal-space) (newline) (forward-line -1) (let ((cited (looking-at (sc-cite-regexp)))) (forward-line) (if cited (progn (sc-cite-line) (just-one-space))))) (defun sc-header-hello-attributed-writes () "Insert Hi, sc-firstneme, then sc-header-attributed-writes" (insert (concat "\nHi, " (sc-mail-field "sc-firstname") "!\n\n")) (my-header-line-generator) ; (sc-header-attributed-writes) ) (defun sc-install-rewrite-header-fn (new-fn) "Install new header rewrite function and make it preffered" (setq sc-preferred-header-style (length sc-rewrite-header-list)) (setq sc-rewrite-header-list (append sc-rewrite-header-list `((,new-fn))))) (defun ic-cite-message () (sc-cite-original) (local-set-key "\C-m" 'sc-break-cited-line)) (setq message-cite-function 'ic-cite-message) (setq mail-citation-hook 'ic-cite-message) ;(add-hook 'mail-citation-hook 'ic-cite-message) (add-hook 'sc-load-hook (lambda () (sc-install-rewrite-header-fn 'sc-header-hello-attributed-writes) (setq sc-confirm-always-p nil))) (setq news-reply-header-hook nil) ;================================================ (setq sc-preferred-attribution-list '( "initials" "x-attribution" "firstname" "sc-lastchoice" )) ;;; sc hack by Bor. (defun sc-add-citation-level-m () "Add citation level to cited string" (interactive) (if (looking-at (sc-cite-regexp)) (if (re-search-forward (concat sc-citation-leader-regexp sc-citation-root-regexp) ) (insert sc-citation-delimiter) ) (sc-cite-line) ) ) ; Cool mailcrypting stuff (load-library "mailcrypt") (mc-setversion "gpg") (autoload 'mc-install-write-mode "mailcrypt" nil t) (autoload 'mc-install-read-mode "mailcrypt" nil t) (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) (add-hook 'message-mode-hook 'mc-install-write-mode) (add-hook 'news-reply-mode-hook 'mc-install-write-mode) ;; If you have more than one key, specify the one to use (setq mc-gpg-user-id "Igor Anikeev") ;; Always sign encrypted messages (setq mc-pgp-always-sign t) ;; How long should mailcrypt remember your passphrase (setq mc-passwd-timeout 600) ;; Automagically sign all messages (add-hook 'message-send-hook 'will-you-sign) (defun will-you-sign () (load-library "mc-toplev") (interactive) (if (y-or-n-p "Do you want to sign this message? ") (mc-sign-message))) ;; Gnus Demon (gnus-demon-add-rescan) ;; ;; News auto rescan ;; (setq gnus-use-demon t) (gnus-demon-init) (gnus-demon-add-rescan) (defun avk-scan-new-messages () "Scan for new mail and news every 15 minutes." (when (gnus-alive-p) (save-excursion (set-buffer gnus-group-buffer) (gnus-group-get-new-news)))) (gnus-demon-add-handler 'avk-scan-new-messages 5 2) (gnus-demon-add-handler 'gnus-group-save-newsrc 10 1) --=-=-= Content-Disposition: attachment; filename=.emacs Content-Description: .emacs (require 'pc-selections) ;; mouse wheel for X (autoload 'mwheel-install "mwheel" "Enable mouse wheel support.") (mwheel-install) ;; Make all "yes or no" prompts show "y or n" instead (fset 'yes-or-no-p 'y-or-n-p) --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=init.el Content-Description: init.el ; Personal settings for Emacs. ; Personal X resources for Emacs can be set in ~/.Xdefaults. ; Look also at the global configuration in /etc/emacs/. ; Emacs has a customization menu, changes done there are written ; into this file. ; For example, to turn off the autostart of Flyspell, customize ; Data->"Text Mode Hook" item. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Minimal settings for users of Emacs working in ; Russian (KOI8-R) environment. (set-language-environment "Cyrillic-KOI8") (set-charset-registry 'ascii "koi8-r") (set-charset-registry 'cyrillic-iso8859-5 "koi8-r") (set-charset-ccl-program 'cyrillic-iso8859-5 'ccl-encode-koi8-r-font) (put-charset-property 'cyrillic-iso8859-5 'preferred-coding-system 'koi8-r) ; End of the language environment settings. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=custom.el Content-Description: custom (custom-set-variables '(ps-paper-type (quote a4)) '(paren-mode (quote sexp) nil (paren)) '(blink-cursor-mode t nil (blink-cursor)) '(user-mail-address "insider@t-k.ru") '(query-user-mail-address nil) '(get-frame-for-buffer-default-instance-limit 2)) (custom-set-faces '(default ((t (:size "12pt" :family "Courier New"))) t)) --=-=-= .gnus -- Take care, Igor. --=-=-=--