Re: [emacs-wiki-discuss] Linking nnml backend gnus articles?

[Patricia J. Hawkins]

Hi, 

This seems to have been an issue with gnus 5.9.0, and also (maybe)
not having initialized gnus-registry.  This snippet from
planner-gnus.el didn't handle the situation gracefully:

      (when (featurep 'gnus-registry)
        (let ((reg-group (gnus-registry-fetch-group articles)))
          (when (and reg-group 
                     (cadr (split-string group ":"))) ;; group contains a :
            (setq group (concat (car (split-string group ":")) ":" 
reg-group)))))
      (gnus-fetch-group group planner-gnus-group-threshold)

a) planner-gnus.el requires gnus > 5.9.0
b) planner-gnus.el requires gnus-registry?

The problem changed after I upgraded to gnus 5.10.6: gnus-fetch-group
now complained that it couldn't open group nnml:nnml:groupname
(accidentally lost the backtrace, sorry).

But -- after I added all the nice gnus-registry intialization and
fancy-split whatnot to my .gnus, it abruptly started working:

(require 'gnus-registry)
;; (setq gnus-registry-use-long-group-names t) ;; this may conflict
                                               ;; with gnus-planner,
                                               ;; not sure
;;       ;;gnus-registry-max-entries 2500
(gnus-registry-initialize)

(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy 
'(| 
  (: gnus-registry-split-fancy-with-parent)
  (any "greaterboston-reuse" "reuse")
....))

*Now I can clear out my inbox, wheeeee!*

Thanks all, for this awesome tool!

>>>>> "PJH" == Patricia J Hawkins <address@hidden> writes:

PJH> However, I'm having trouble following links from tasks to gnus
PJH> articles.  Below is a backtrace; this happened in today's page, when I
PJH> tabbed to a link to a test email (from/to me), and hit return.
......

PJH> This is on Win98; I don't see any relevant shadows when I run
PJH> list-load-path-shadows.  (Though I am running w3, not w3m -- but it
PJH> looks like the original article url link information gets extracted from
PJH> the headers using the gnus api, not w3, anyway)

PJH> TIA!

PJH> Versions:
PJH> "GNU Emacs 21.3.1 (i386-mingw-windows98.1998) of 2004-02-17 on SKEEZIX"
PJH> planner version: 2005-06-02 10:23:04 GMT   Sacha Chua <address@hidden>     
patch-117
PJH>                 (emacs-wiki and remember both from that 
sacha-stable.tar.gz)

PJH> Backtrace:
PJH> Debugger entered--Lisp error: (wrong-number-of-arguments #[(group) "Â!„   
 à ˆÄʼn #‡" [gnus-group-buffer group get-buffer gnus-no-server 
gnus-group-read-group nil] 4 ("c:/EMACS/EMACS-21.3/lisp/gnus/gnus-group.elc" . 
55942) (list (completing-read "Group name: " gnus-active-hashtb))] 2)
PJH>   gnus-fetch-group("nnml:misc" 10)
PJH>   (let ((group ...) (articles ...)) (when (featurep ...) (let ... ...)) 
(gnus-fetch-group group planner-gnus-group-threshold) (mapcar (lambda ... ...) 
(split-string articles "\\\\|")) (let (...) (gnus-summary-limit articles) 
(gnus-summary-select-article)) t)
PJH>   (progn (let (... ...) (when ... ...) (gnus-fetch-group group 
planner-gnus-group-threshold) (mapcar ... ...) (let ... ... ...) t))
PJH>   (if (string-match "^gnus://\\(.+\\)/\\(.+\\)" url) (progn (let ... ... 
... ... ... t)))
PJH>   (when (string-match "^gnus://\\(.+\\)/\\(.+\\)" url) (let (... ...) 
(when ... ...) (gnus-fetch-group group planner-gnus-group-threshold) (mapcar 
... ...) (let ... ... ...) t))
PJH>   planner-gnus-browse-url("gnus://nnml:misc/<address@hidden>")
PJH>   funcall(planner-gnus-browse-url "gnus://nnml:misc/<address@hidden>")
PJH>   (progn (funcall (cadr entry) url))
PJH>   (if entry (progn (funcall ... url)))
PJH>   (when entry (funcall (cadr entry) url))
PJH>   (let ((entry ...)) (when entry (funcall ... url)))
PJH>   (progn (let (...) (when entry ...)))
PJH>   (if (string-match emacs-wiki-url-regexp url) (progn (let ... ...)))
PJH>   (when (string-match emacs-wiki-url-regexp url) (let (...) (when entry 
...)))
PJH>   emacs-wiki-browse-url("gnus://nnml:misc/<address@hidden>" nil)
PJH>   (if (emacs-wiki-wiki-url-p link) (emacs-wiki-browse-url link 
other-window) (let* (... ... ... ... ... ... ... ... ... ...) (when tag ... 
...) (when refresh-buffer ... ...)))
PJH>   (let ((link ...)) (if (emacs-wiki-wiki-url-p link) 
(emacs-wiki-browse-url link other-window) (let* ... ... ...)))
PJH>   emacs-wiki-visit-link("[[gnus://nnml:misc/<address@hidden>][E-Mail from 
Patricia J. Hawkins]]" nil nil)
PJH>   (if (emacs-wiki-link-at-point) (emacs-wiki-visit-link 
(match-string-no-properties 0) buf other-window) (error "There is no valid link 
at point"))
PJH>   (let (buf) (when (eq ... ...) (setq buf ...)) (if 
(emacs-wiki-link-at-point) (emacs-wiki-visit-link ... buf other-window) (error 
"There is no valid link at point")))
PJH>   emacs-wiki-follow-name-at-point(nil)
PJH> * call-interactively(emacs-wiki-follow-name-at-point)
        

PJH> -- 
PJH> Patricia J. Hawkins
PJH> Hawkins Internet Applications
PJH> www.hawkinsia.com



PJH> _______________________________________________
PJH> emacs-wiki-discuss mailing list
PJH> address@hidden
PJH> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss


-- 
Patricia J. Hawkins
Hawkins Internet Applications
www.hawkinsia.com