Re: Stoping gnus reading my newsrc

[sean@tcob1.net (Sean Rima)]

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