From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9240 Path: main.gmane.org!not-for-mail From: Sean Lynch Newsgroups: gmane.emacs.gnus.general Subject: gnus-article-prepare-hook not being defined? Date: 17 Dec 1996 16:46:04 -0800 Sender: seanl@Internex.NET Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.88) Content-Type: multipart/mixed; boundary="Multipart_Tue_Dec_17_16:46:04_1996-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035149294 17270 80.91.224.250 (20 Oct 2002 21:28:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:28:14 +0000 (UTC) Return-Path: Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.8.4/8.8.4) with SMTP id RAA30328 for ; Tue, 17 Dec 1996 17:05:34 -0800 Original-Received: from starfleet.Internex.NET (starfleet.internex.net [199.2.14.11]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Wed, 18 Dec 1996 01:46:55 +0100 Original-Received: from curly.Internex.NET (curly.internex.net [199.2.14.51]) by starfleet.Internex.NET (8.8.2/8.8.0) with ESMTP id QAA20406 for ; Tue, 17 Dec 1996 16:46:23 -0800 (PST) Original-Received: (from seanl@localhost) by curly.Internex.NET (8.7.5/8.7.3) id QAA03863; Tue, 17 Dec 1996 16:46:11 -0800 (PST) Original-To: ding@ifi.uio.no Original-Lines: 195 X-Mailer: Red Gnus v0.74/Emacs 19.31 Xref: main.gmane.org gmane.emacs.gnus.general:9240 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9240 --Multipart_Tue_Dec_17_16:46:04_1996-1 Content-Type: text/plain; charset=US-ASCII 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. --Multipart_Tue_Dec_17_16:46:04_1996-1 Content-Type: application/octet-stream; type=emacs-lisp Content-Disposition: attachment; filename=".gnus.el" Content-Transfer-Encoding: 7bit (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) --Multipart_Tue_Dec_17_16:46:04_1996-1 Content-Type: application/octet-stream Content-Disposition: attachment; filename=".emacs" Content-Transfer-Encoding: 7bit (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 , in article , someone posing as 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) --Multipart_Tue_Dec_17_16:46:04_1996-1--