* Re: Stoping gnus reading my newsrc
2003-11-20 3:15 ` Simon Josefsson
@ 2003-11-20 9:00 ` Sean Rima
0 siblings, 0 replies; 3+ messages in thread
From: Sean Rima @ 2003-11-20 9:00 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 3+ messages in thread