* gnus-article-prepare-hook not being defined?
@ 1996-12-18 0:46 Sean Lynch
0 siblings, 0 replies; only message in thread
From: Sean Lynch @ 1996-12-18 0:46 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 901 bytes --]
Starting with about version 0.60 of Red Gnus, NoCeM stopped working
properly for me. When it loads, I get the message that
gnus-article-save-directory is not defined, and the only way to make
it work is to forcibly load gnus-art and gnus-sum in my .gnus.el.
Require doesn't work. Of course, both of these are being required by
gnus-nocem.el, so if require worked, I shouldn't get this error. Do I
need to recompile something?
In addition, since about 0.60, gnus-article-prepare-hook is undefined
when I try to go into the summary for a newsgroup. setting it to nil
seems to work. I'm using tm7.88 and Mailcrypt 3.4, and both have been
recompiled with the version of Red Gnus I'm currently using (0.74).
Do I need to recompile something or what?
Note: This happens with both Emacs 19.34 and XEmacs 19.14. I am not
sharing any elisp files between them.
Here are my .gnus.el and .emacs files.
[-- Attachment #2: .gnus.el --]
[-- Type: application/octet-stream, Size: 3358 bytes --]
(setq
gnus-secondary-select-methods '((nnml "")
(nnml "news"
(nnml-directory "~/Mail/news")
(nnml-active-file "~/Mail/news/active")
(nnml-inhibit-expiry t)
(nnml-get-new-mail nil)))
gnus-decay-scores t
; gnus-use-adaptive-scoring '(word line)
gnus-use-long-file-name 'not-score
gnus-use-article-prefetch nil
gnus-show-mime t
gnus-strict-mime nil
gnus-summary-line-format "%U%R%z%e%I%(%[%4L: %-20,20n%]%) %s\n"
gnus-extract-address-components 'mail-extract-address-components
; gnus-use-nocem t
; gnus-nocem-issuers '(
; "moose@cm.org;" "clewis@ferret.ocunix.on.ca;" "jem@xpat.com;"
; "red@redpoll.mrfs.oh.us (Richard E. Depew)" "rbraver@ohwww.norman.ok.us;"
; "snowhare@xmission.com;" "haystack@cow.net;" "hgoldste@mpcs.com;"
; "nocembot@bwalk.dm.com")
; gnus-nocem-expiry-wait 7
gnus-use-demon t
gnus-group-sort-function 'gnus-group-sort-by-rank
gnus-auto-select-first nil
gnus-auto-select-next nil
gnus-thread-hide-subtree t
gnus-thread-sort-functions '(
gnus-thread-sort-by-number
gnus-thread-sort-by-score)
gnus-message-archive-group
'((if (message-news-p)
"misc-news"
"misc-mail"))
message-cite-function 'sc-cite-original
nnmail-list-identifiers '("\\[COLD\\]" "\\[ColdCore\\]")
nnmail-treat-duplicates 'delete
nnmail-delete-incoming t
nnmail-split-methods 'nnmail-split-fancy
nnmail-split-fancy '(| ("from" mail "mail.daemon")
("Subject" "IP Low Report" "ip")
("From" "nic@internex.net" "internex.nic")
("From" "auto@internex.net" "mail.auto")
(& ("To\\|Cc\\|Resent-To" "agent-users" "list.mailagent")
("From\\|Sender\\|Resent-from" ".*@.*internic.net" "mail.internic")
("From" "newman-l" "list.newman")
("Sender" "lojban" "list.lojban")
("Sender" "agents-owner" "list.agents")
("Sender" "naispa-l@naispa.org" "list.naispa")
("To\\|Cc\\|Resent-To" "tkined" "list.tkined")
("To\\|Cc\\|Resent-To" "ding" "list.ding")
("To\\|Cc\\|Resent-To" "nocg" "internex.nocg")
("To\\|Cc\\|Resent-To" "eng" "internex.eng")
("To\\|Cc\\|Resent-To" "it" "internex.it")
("To\\|Cc\\|Resent-To" "auto" "mail.auto")
("To\\|Cc\\|Resent-To" "nocdone" "internex.nocdone")
("To\\|Cc\\|Resent-To" "internex-outage" "internex.outage")
("To\\|Cc\\|Resent-To" "humor" "internex.humor")
("To\\|Cc\\|Resent-To" "oz-users" "list.oz")
("To\\|Cc\\|Resent-To" "zircon" "list.zircon"))
("To" "networker" junk)
"mail.misc"))
;(setq gnus-article-prepare-hook nil)
(add-hook 'message-mode-hook 'turn-on-auto-fill)
(add-hook 'message-mode-hook 'turn-on-font-lock)
(add-hook 'nnmail-prepare-incoming-header-hook 'nnmail-remove-leading-whitespace t)
(add-hook 'nnmail-prepare-incoming-header-hook 'nnmail-remove-tabs t)
(add-hook 'nnmail-prepare-incoming-header-hook 'nnmail-remove-list-identifiers t)
(add-hook 'mail-citation-hook 'sc-cite-original)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'gnus-summary-exit-hook 'gnus-summary-bubble-group t)
(add-hook 'gnus-select-article-hook 'gnus-summary-show-thread)
(add-hook 'gnus-inews-article-hook 'gnus-score-followup-article)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;(gnus-demon-add-nocem)
(gnus-demon-add-rescan)
[-- Attachment #3: .emacs --]
[-- Type: application/octet-stream, Size: 2438 bytes --]
(put 'eval-expression 'disabled nil)
(setq
load-path (append (list (expand-file-name "~/emacs") (expand-file-name "~/emacs/mailcrypt-3.4") (expand-file-name "~/emacs/gnus/lisp")) load-path)
Info-default-directory-list (append (list (expand-file-name "~/emacs/gnus/texi")) Info-default-directory-list)
user-mail-address "seanl@internex.net"
minibuffer-max-depth nil
vc-initial-comment t
browse-url-browser-function 'browse-url-netscape
browse-url-netscape-arguments '("-install"))
;; Autoload stuff
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(autoload 'sc-cite-original "supercite" nil t)
;; Hooks
(add-hook 'mail-mode-hook 'mc-install-write-mode)
(add-hook 'mail-citation-hook 'sc-cite-original)
;; Supercite stuff
(defun my-header-rewrite-function ()
"\"Sometime around <date>,
in article <message-id>,
someone posing as <from> wrote:\"
Treats \"message-id\" and \"from\" fields similar to `sc-header-on-said'."
(let ((sc-mumble "")
(whofrom (sc-mail-field "from"))
(tag sc-reference-tag-string))
(if whofrom
(insert (sc-hdr (concat tag "Sometime around ") (sc-mail-field "date") ",\n")
(sc-hdr (concat tag "in article ") (sc-mail-field "message-id") ",\n")
(sc-hdr (concat tag "someone posing as " ) (concat whofrom " wrote:\n"))))))
(setq sc-preferred-header-style 2
sc-rewrite-header-list
'((sc-no-header)
(sc-header-on-said)
(my-header-rewrite-function)
(sc-header-inarticle-writes)
(sc-header-regarding-adds)
(sc-header-attributed-writes)
(sc-header-author-writes)
(sc-header-verbose)
(sc-no-blank-line-or-header)
))
;; where to find oz-mode
(setq load-path (cons (concat (getenv "OZHOME") "/lib/elisp") load-path))
;; autoload "oz.el" if the functions oz-mode or run-oz are executed
(autoload 'oz-mode "oz" "" t)
(autoload 'run-oz "oz" "" t)
;; MIME stuff
(setq mime-editor/signing-type 'pgp-elkins
mime-editor/encrypting-type 'pgp-elkins
mime-setup-use-sc t
signature-insert-at-eof t
signature-delete-blank-lines-at-eof t)
(load "mime-setup")
(call-after-loaded
'tm-view
(function
(lambda ()
(require 'tm-pgp)
)))
(setq mc-pgp-keyserver-url-template "/htbin/pks-extract-key.pl?op=get&search=%s")
(setq mc-pgp-keyserver-port 80)
(setq mc-pgp-always-fetch t)
;; Start the server
(server-start)
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1996-12-18 0:46 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-12-18 0:46 gnus-article-prepare-hook not being defined? Sean Lynch
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).