gnus-article-prepare-hook not being defined?

gnus-article-prepare-hook not being defined?

[Sean Lynch]

[-- 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)