From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/3192 Path: news.gmane.org!not-for-mail From: sean@tcob1.net (Sean Rima) Newsgroups: gmane.emacs.gnus.user Subject: Re: Stoping gnus reading my newsrc Date: Thu, 20 Nov 2003 09:00:51 +0000 Organization: There Can Only Be 1 - http://www.tcob1.net Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1138669376 17962 80.91.229.2 (31 Jan 2006 01:02:56 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 01:02:56 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:31:50 2006 Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!uio.no!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!sn-xit-03!sn-xit-01!sn-post-01!supernews.com!news.supernews.com!home.tcob1.net!not-for-mail Original-Newsgroups: gnu.emacs.gnus X-PGP-FP: FF71 AC3B 7A3E 54A6 88C5 9ED8 5E31 FCA5 120A 02FB X-PGP: 120A02FB X-Files: Great Show User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:yZidavZDxxp34e7LHM9p2WR+8gk= Original-X-Complaints-To: abuse@supernews.com Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:3333 Original-Lines: 204 X-Gnus-Article-Number: 3333 Tue Jan 17 17:31:50 2006 Xref: news.gmane.org gmane.emacs.gnus.user:3192 Archived-At: On 20 Nov 2003, Simon Josefsson wrote: >>>> -----BEGIN PGP SIGNED MESSAGE----- >>>> Hash: SHA1 >>> >>> Just out of curiosity, are you using Gnus to sign your messages? >>> For some reason they are QP encoded, but your headers does not >>> indicate that QP is used. I'm hoping Gnus isn't responsible for >>> generating that mess... >> >> Just found out why, I was trying to pgp/mime and not pgp sign the >> messages, sorry > > But the output still doesn't look very good, and not even Gnus > recognize it as a PGP signature. How do you invoke the signing > operation? My .gus followes: ;; Mail & News ;;; (setq load-path (append load-path (list "~/elisp"))) (defvar zonix-elisp-dir "~/elisp/") ;; Datei laden, wenn vorhanden, sonst Warnung (defun zonix-load-part (part) (let ((fullname (concat zonix-elisp-dir part))) (if (file-exists-p fullname) (load fullname) (message (format "Loading %s (source)...failed" fullname))))) ;; ShengHuo ZHU empfiehlt in <2nwuxp7xla.fsf@zsh.cs.rochester.edu> ;; beim Einsatz von Entwicklerversionen wie Oort Gnus/No Gnus die ;; folgende Zeile: (require 'gnus-load) (zonix-load-part "tc-tc.el") ;; I don't use any other newsreader. (setq gnus-save-newsrc-file nil gnus-read-newsrc-file nil ) (add-hook 'mail-setup-hook 'turn-on-auto-fill) (setq mail-yank-prefix ">") (setq user-full-name "Sean Rima") (setq user-mail-address "sean@tcob1.net") (setq mail-host-address "tcob1.net") (setq gnus-local-domain "tcob1.net") (defun my-gnus-user-agent () "Multi-flavoured custom User-Agent field" (concat (format "Gnus/%s (Oort %s) " (gnus-continuum-version (gnus-version)) gnus-version-number) (cond ((its-gnu) (format "Emacs/%s " emacs-version)) (t (format "XEmacs/%s " emacs-program-version))) (cond ((eq window-system 'gtk) "(GTK)") (t (format "(%s)" system-configuration))))) '(mail-user-agent (quote my-gnus-user-agent)) (setq message-syntax-checks '((sender . disabled))) (setq gnus-posting-styles '((".*" ("From" "sean@tcob1.net (Sean Rima)") ("Organization" "There Can Only Be 1 - http://www.tcob1.net") ("X-Files" "Great Show") ("X-PGP" "120A02FB") ("X-PGP-FP" "FF71 AC3B 7A3E 54A6 88C5 9ED8 5E31 FCA5 120A 02FB") (signature-file "~/.signature")) ))) (setq gnus-secondary-select-methods '((nnmaildir "tcob1" (directory "~/Mail") (directory-files nnheader-directory-files-safe) (get-new-mail nil)))) ;; --- mail expiration (setq gnus-auto-expirable-newsgroups "^nnml:.*" nnmail-expiry-wait 7) (setq mail-archive-file-name "~/Mail/sent") (setq rmail-file-name "~/mail/MMAIL") ;; -------------------- (message "Gnus: Backend initialized") (setq mail-signature t) (setq mail-interactive t) ; replace-signature will replace the signature in an email (defun replace-signature () (interactive) (let ((starthere (point))) (goto-char (point-min)) (search-forward-regexp "^--text") (next-line 1) (search-forward-regexp "^--") (next-line 1) (beginning-of-line) (let ((beg (point))) (goto-char (point-max)) (delete-region beg (point))) (shell-command-to-string "~suresh/sig.suresh") (insert-file "~/.signature") (goto-char starthere))) ; Enable syntax highlighting (toggle-global-lazy-font-lock-mode) (setq minibuffer-max-depth nil) (setq gnus-signature-separator '("^-- $" "^-- *$" "^-------*$" "^ *--------*$" "^________*$" "^========*$") gnus-signature-limit 20.0 ; floating point for lines message-signature-file "~/.signature" ) ;;;; Signature ;;;; (add-hook 'gnus-message-setup-hook '(lambda () (if (message-mail-p) (mml-secure-message-sign-pgpmime)))) (require 'pgg) (setq ;; Make button for the multipart gnus-buttonized-mime-types '("multipart/encrypted" "multipart/signed") ;; how long remember pass phrase pgg-passphrase-cache-expiry 300) ;; Emacs should always decrypt and verify emails ;; automatically (setq mm-verify-option 'known mm-decrypt-option 'known) (gnus-compile) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Gnus als Offline-Reader (Info-goto-node "(Gnus)Gnus Unplugged") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Agent ist ab Gnus 5.10 Default, ich will das aber nicht. (setq gnus-agent nil) (setq mm-text-html-renderer 'w3m) (require 'w3m) (defvar gnus-w3m-minor-mode nil) (make-variable-buffer-local 'gnus-w3m-minor-mode) (add-to-list 'minor-mode-alist '(gnus-w3m-minor-mode " w3m")) (add-to-list 'minor-mode-map-alist (cons 'gnus-w3m-minor-mode w3m-mode-map)) (defadvice mm-inline-text (around use-w3m-instead (handle) activate) (let ((type (mm-handle-media-subtype handle))) (if (not (equal type "html")) ad-do-it (let ((text (mm-get-part handle)) (b (point))) (save-excursion (insert text) (save-restriction (narrow-to-region b (point)) (goto-char (point-min)) (w3m-region (point-min) (point-max)) (setq gnus-w3m-minor-mode t)) (mm-handle-set-undisplayer handle `(lambda () (let (buffer-read-only) (setq gnus-w3m-minor-mode nil) (if (functionp 'remove-specifier) (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground))) (delete-region ,(point-min-marker) ,(point-max-marker)))))))))) And that is it. Sean -- GPG Key Id 120A02FB ICQ: 679813 Jabber: tcobone@jabber.org SuSE 9.0 for when you want to spend time doinmg and not rebooting