Unable to read mail in newer pgnusiae

Unable to read mail in newer pgnusiae

[Thomas Skogestad]

0.72 works fine. Later versions do not, including 0.85. Emacs is 20.3

If I have (setq gnus-secondary-select-methods
                '((nnml "private")))

then Gnus will complain that "Error, unknown mail format! (Possibly
corrupted."

I've also tried

This is the trace:

Signaling: (error "Error, unknown mail format! (Possibly corrupted.)")
  signal(error ("Error, unknown mail format! (Possibly corrupted.)"))
  error("Error, unknown mail format! (Possibly corrupted.)")  (if (not
  (and ... ...)) (error "Error, unknown mail format! (Possibly
  corrupted.)") (while (not ...) (setq start ... end nil)
  (narrow-to-region start ...) (goto-char ...) (if ... ... ... ... ...)
  (goto-char ...) (if ... ... ... ... ...) (run-hooks ...) (goto-char ...)
  (widen) (setq head-end ...) (when content-length ... ... ... ...) (if
  end ... ... ...) (save-excursion ...) (goto-char end))) (let
  ((case-fold-search t) start message-id content-length end skip head-end)
  (goto-char (point-min)) (if (not ...) (error "Error, unknown mail
  format! (Possibly corrupted.)") (while
  ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  nnmail-process-unix-mail-format(nnml-save-mail nnml-active-number) (cond
  ((or ... ...) (nnmail-process-babyl-mail-format func artnum-func))
  ((looking-at "\x01\x01\x01\x01") (nnmail-process-mmdf-mail-format func
  artnum-func)) ((looking-at "Return-Path:")
  (nnmail-process-maildir-mail-format func artnum-func)) (t
  (nnmail-process-unix-mail-format func artnum-func))) (if (zerop
  (buffer-size)) nil (goto-char (point-min)) (save-excursion (run-hooks
  ...)) (cond (... ...) (... ...) (... ...) (t ...)))  (unless (zerop
  (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks ...))
  (cond (... ...) (... ...) (... ...) (t ...)))  (save-excursion
  (set-buffer (get-buffer-create " *nnmail incoming*")) (erase-buffer)
  (let (...) (nnheader-insert-file-contents incoming)) (unless (zerop ...)
  (goto-char ...) (save-excursion ...) (cond ... ... ... ...)) (when
  exit-func (funcall exit-func)) (kill-buffer (current-buffer))) (let
  ((nnmail-split-methods ...)) (save-excursion (set-buffer ...)
  (erase-buffer) (let ... ...) (unless ... ... ... ...) (when exit-func
  ...) (kill-buffer ...)))
  nnmail-split-incoming("~/.emacs-mail-crash-box" nnml-save-mail nil nil
  nnml-active-number) (lambda (file orig-file) (nnmail-split-incoming file
  (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file
  source) (quote nnml-active-number)))("~/.emacs-mail-crash-box"
  "~/.emacs-mail-crash-box") funcall((lambda (file orig-file)
  (nnmail-split-incoming file (quote nnml-save-mail) (quote nil)
  (nnmail-get-split-group orig-file source) (quote nnml-active-number)))
  "~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box") (if (or (not ...)
  (zerop ...)) (progn (when ... ...) 0) (funcall callback
  mail-source-crash-box info) (when (file-exists-p mail-source-crash-box)
  (if mail-source-delete-incoming ... ...)) 1)
  mail-source-callback((lambda (file orig-file) (nnmail-split-incoming
  file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group
  orig-file source) (quote nnml-active-number)))
  "~/.emacs-mail-crash-box") (setq found (mail-source-callback callback
  mail-source-crash-box)) (progn (message "Processing mail from %s..."
  mail-source-crash-box) (setq found (mail-source-callback callback
  mail-source-crash-box))) (if (file-exists-p mail-source-crash-box)
  (progn (message "Processing mail from %s..." mail-source-crash-box)
  (setq found ...)))  (when (file-exists-p mail-source-crash-box) (message
  "Processing mail from %s..." mail-source-crash-box) (setq found
  (mail-source-callback callback mail-source-crash-box))) (let ((function
  ...) (found 0)) (unless function (error "%S is an invalid mail source
  specification" source)) (when (file-exists-p mail-source-crash-box)
  (message "Processing mail from %s..." mail-source-crash-box) (setq found
  ...)) (+ found (condition-case err ... ...)))  (save-excursion (let
  (... ...) (unless function ...) (when ... ... ...) (+ found ...)))
  mail-source-fetch((file :path "/var/spool/mail/thomas") (lambda (file
  orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote
  nil) (nnmail-get-split-group orig-file source) (quote
  nnml-active-number)))) (setq new (mail-source-fetch source (\` ...)))
  (if (setq new (mail-source-fetch source ...)) (progn (incf total new)
  (incf i))) (when (setq new (mail-source-fetch source ...)) (incf total
  new) (incf i)) (progn (nnheader-message 4 "%s: Reading incoming mail
  from %s..." method (car source)) (when (setq new ...) (incf total new)
  (incf i))) (if source (progn (nnheader-message 4 "%s: Reading incoming
  mail from %s..." method ...) (when ... ... ...)))  (when source
  (nnheader-message 4 "%s: Reading incoming mail from %s..." method (car
  source)) (when (setq new ...) (incf total new) (incf i))) (while (setq
  source (pop sources)) (cond (... ...) (... ... nil)) (when (and
  ... group) (mail-source-bind ... ...)) (when nnmail-fetched-sources (if
  ... ... ...)) (when source (nnheader-message 4 "%s: Reading incoming
  mail from %s..." method ...) (when ... ... ...)))  (progn
  (nnmail-activate method) (run-hooks (quote
  nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source
  ...) (cond ... ...) (when ... ...) (when nnmail-fetched-sources ...)
  (when source ... ...)) (unless (zerop new) (nnmail-save-active ... ...)
  (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading
  incoming mail (%d new)...done" method total)) (nnmail-cache-close)
  (run-hooks (quote nnmail-post-get-new-mail-hook))) (if (and
  (nnmail-get-value "%s-get-new-mail" method) nnmail-spool-file) (progn
  (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while
  ... ... ... ... ...) (unless ... ... ... ... ...) (nnmail-cache-close)
  (run-hooks ...)))  (when (and (nnmail-get-value "%s-get-new-mail"
  method) nnmail-spool-file) (nnmail-activate method) (run-hooks (quote
  nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source
  ...) (cond ... ...) (when ... ...) (when nnmail-fetched-sources ...)
  (when source ... ...)) (unless (zerop new) (nnmail-save-active ... ...)
  (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading
  incoming mail (%d new)...done" method total)) (nnmail-cache-close)
  (run-hooks (quote nnmail-post-get-new-mail-hook))) (let* ((sources ...)
  (group-in group) (i 0) (new 0) (total 0) incoming incomings source)
  (when (and ... nnmail-spool-file) (nnmail-activate method) (run-hooks
  ...) (nnmail-cache-open) (while ... ... ... ... ...) (unless
  ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
  nnmail-get-new-mail(nnml nnml-save-nov "/mnt/windows/gnus/mail/" nil)
  nnml-request-scan(nil "private") funcall(nnml-request-scan nil
  "private") (let ((gnus-command-method ...) (gnus-inhibit-demon t))
  (funcall (gnus-get-function gnus-command-method ...) (and group ...)
  (nth 1 gnus-command-method))) (progn (let (... ...) (funcall
  ... ... ...)))  (if gnus-plugged (progn (let ... ...)))  (when
  gnus-plugged (let (... ...) (funcall ... ... ...)))
  gnus-request-scan(nil (nnml "private")) (progn (gnus-request-scan nil
  method)) (if (gnus-check-backend-function (quote request-scan) (car
  method)) (progn (gnus-request-scan nil method))) (when
  (gnus-check-backend-function (quote request-scan) (car method))
  (gnus-request-scan nil method)) (progn (when
  (gnus-check-backend-function ... ...) (gnus-request-scan nil method))
  (cond (... ...) (... t) (t ...)))  (if (gnus-check-server method) (progn
  (when ... ...) (cond ... ... ...)))  (when (gnus-check-server method)
  (when (gnus-check-backend-function ... ...) (gnus-request-scan nil
  method)) (cond (... ...) (... t) (t ...)))  (if (member method methods)
  nil (setq where (nth 1 method) mesg (format "Reading active file%s via
  %s..." ... ...)) (gnus-message 5 mesg) (when (gnus-check-server method)
  (when ... ...) (cond ... ... ...)))  (unless (member method methods)
  (setq where (nth 1 method) mesg (format "Reading active file%s via
  %s..." ... ...)) (gnus-message 5 mesg) (when (gnus-check-server method)
  (when ... ...) (cond ... ... ...)))  (while (setq method (pop methods))
  (unless (member method methods) (setq where ... mesg ...) (gnus-message
  5 mesg) (when ... ... ...)))  (save-excursion (set-buffer
  nntp-server-buffer) (while (setq method ...) (unless ... ... ... ...)))
  (let ((methods ...) method where mesg list-type) (setq
  gnus-have-read-active-file nil) (save-excursion (set-buffer
  nntp-server-buffer) (while ... ...)))  gnus-read-active-file(nil nil)
  (and gnus-read-active-file (not level) (gnus-read-active-file nil
  dont-connect)) (let ((init ...) (nnmail-fetched-sources ...)) (when init
  (setq gnus-newsrc-alist nil gnus-active-hashtb nil)
  (gnus-read-newsrc-file rawfile)) (when gnus-message-archive-method (setq
  gnus-server-alist ...) (push ... gnus-server-alist)) (when (or ... ...)
  (gnus-update-active-hashtb-from-killed)) (and gnus-read-active-file (not
  level) (gnus-read-active-file nil dont-connect)) (unless
  gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache
  (gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave)
  (gnus-dribble-eval-file)) (when (and init gnus-slave)
  (gnus-dribble-clear)) (gnus-update-format-specifications) (when (and
  ... ... ... ... gnus-read-active-file)
  (gnus-read-all-descriptions-files)) (when (and init
  gnus-check-new-newsgroups ... ... ... gnus-plugged)
  (gnus-find-new-newsgroups)) (when (and gnus-use-nocem ... ...)
  (gnus-nocem-scan-groups)) (gnus-master-read-slave-newsrc) (let (...)
  (gnus-get-unread-articles level)) (when (and init
  gnus-check-bogus-newsgroups gnus-read-active-file ... ...)
  (gnus-check-bogus-newsgroups))) gnus-setup-news(nil nil nil) (if (and
  (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks
  (quote gnus-startup-hook)) (setq gnus-current-startup-file
  (gnus-make-newsrc-file gnus-startup-file)) (when (or gnus-slave
  gnus-use-dribble-file) (gnus-dribble-read-file)) (when
  gnus-use-grouplens (bbb-login) (add-hook ... ...)) (gnus-setup-news nil
  level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook))
  (gnus-start-draft-setup) (gnus-group-list-groups level)
  (gnus-group-first-unread-group) (gnus-configure-windows (quote group))
  (gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
  (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...)
  (gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file
  ...) (when ... ...) (when gnus-use-grouplens ... ...) (gnus-setup-news
  nil level dont-connect) (gnus-run-hooks ...) (gnus-start-draft-setup)
  (gnus-group-list-groups level) (gnus-group-first-unread-group)
  (gnus-configure-windows ...) (gnus-group-set-mode-line) (gnus-run-hooks
  ...)))  (let ((level ...) did-connect) (unwind-protect (progn ...) (if
  ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))  (if
  (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer)
  (gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash)
  (gnus-run-hooks (quote gnus-before-startup-hook))
  (nnheader-init-server-buffer) (setq gnus-slave slave)
  (gnus-read-init-file) (when gnus-simple-splash (setq gnus-simple-splash
  nil) (cond ... ...)) (let (... did-connect) (unwind-protect ... ...)))
  gnus-1(nil nil nil) gnus() command-line-1(("-f" "gnus")) command-line()
  normal-top-level()


-- 
thomas.skogestad@jusstud.uio.no
You know you've been in Norway too long, when...
It seems nice to spend a week in a small wooden cottage up in the
mountains, with no running water and no electricity

Re: Unable to read mail in newer pgnusiae

[Lars Magne Ingebrigtsen]

Thomas Skogestad <tskogest@jusstud.uio.no> writes:

> then Gnus will complain that "Error, unknown mail format! (Possibly
> corrupted."

This probably means that whatever is in your ~/.emacs-mail-crash-box
is something that Gnus isn't able to recognize.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Unable to read mail in newer pgnusiae

[Thomas Skogestad]

* Lars Magne Ingebrigtsen

| This probably means that whatever is in your ~/.emacs-mail-crash-box is
| something that Gnus isn't able to recognize.

Huh! Deleted that file and upgrading to 0.85 (from 0.72) works
fine. Or... 

Well, I'm not able to acess my draft files. Trying to enter
nndraft:drafts results in

                Couldn't request group nndraft:drafts: 

(There's nothing after the last colon; though I could have sworn there was
before I just restarted Emacs. Maybe it's just because it's "late".)

And: It does work in 0.84, which I've just tested.

nndraft-directory's value is 
"~/News/drafts/"

nndraft-current-directory's value is 
"~/News/drafts/drafts"

And that is also where the draft files are stored, but I just copied them
to ~/News/drafts/ and that didn't anything. And I've never touched these
variables, they seem to be default values.

However, saving drafts still work; and it's stored in
~/News/drafts/drafts.

The trace is:

Signaling: (error "Couldn't request group nndraft:drafts: Opened server
  using directory ~/News/drafts/") signal(error ("Couldn't request group
  nndraft:drafts: Opened server using directory ~/News/drafts/"))
  error("Couldn't request group %s: %s" "nndraft:drafts" "Opened server
  using directory ~/News/drafts/") (progn (when (equal major-mode ...)
  (kill-buffer ...)) (error "Couldn't request group %s: %s" group
  (gnus-status-message group))) (or (and entry (not ...))
  (gnus-activate-group group) (progn (when ... ...) (error "Couldn't
  request group %s: %s" group ...)))  (let* ((entry ...)
  (gnus-summary-ignore-duplicates ...) (info ...) articles
  fetched-articles cached) (unless (gnus-check-server ...) (error
  "Couldn't open server")) (or (and entry ...) (gnus-activate-group group)
  (progn ... ...)) (unless (gnus-request-group group t) (when ... ...)
  (error "Couldn't request group %s: %s" group ...)) (setq
  gnus-newsgroup-name group) (setq gnus-newsgroup-unselected nil) (setq
  gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
  (gnus-summary-setup-default-charset) (when info
  (gnus-adjust-marked-articles info)) (when (gnus-virtual-group-p group)
  (setq cached gnus-newsgroup-cached)) (setq gnus-newsgroup-unreads
  (gnus-set-difference ... gnus-newsgroup-dormant)) (setq
  gnus-newsgroup-processable nil) (gnus-update-read-articles group
  gnus-newsgroup-unreads) (if (setq articles select-articles) (setq
  gnus-newsgroup-unselected ...) (setq articles ...)) (cond (... ...)
  (... nil) (t
  ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-select-newsgroup("nndraft:drafts" nil nil) (and new-group
  (gnus-select-newsgroup group show-all select-articles)) (let*
  ((new-group ...) (quit-config ...) (did-select ...)) (cond
  (... ... ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...)
  (t ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-summary-read-group-1("nndraft:drafts" nil t nil nil nil) (or
  (gnus-summary-read-group-1 group show-all no-article kill-buffer
  no-display select-articles) (setq show-all nil select-articles nil))
  (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group
  show-all no-article kill-buffer no-display select-articles) (setq
  show-all nil select-articles nil))) (setq result (let (...) (or
  ... ...)))  (null (setq result (let ... ...)))  (and group (null (setq
  result ...)) (eq gnus-auto-select-next (quote quietly))) (while (and
  group (null ...) (eq gnus-auto-select-next ...)) (set-buffer
  gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if
  (not ...) (setq group ...) (setq group nil))) (let (result) (while (and
  group ... ...) (set-buffer gnus-group-buffer) (when backward ...) (if
  ... ... ...)) result) gnus-summary-read-group("nndraft:drafts" nil t nil
  nil nil nil) (let ((no-display ...) (group ...) number active marked
  entry) (when (eq all 0) (setq all nil)) (unless group (error "No group
  on current line")) (setq marked (gnus-info-marks ...)) (setq number
  (cond ... ... ...)) (gnus-summary-read-group group (or all ...)
  no-article nil no-display nil select-articles))
  gnus-group-read-group(nil t) gnus-group-select-group(nil) (if
  (gnus-group-topic-p) (let (...) (gnus-topic-fold all))
  (gnus-group-select-group all)) gnus-topic-select-group(nil) *
  call-interactively(gnus-topic-select-group)



-- 
thomas.skogestad@jusstud.uio.no
ftp://ftp.splode.com/pub/users/friedman/emacs-lisp/kill-a-lawyer.el

Re: Unable to read mail in newer pgnusiae

[Lars Magne Ingebrigtsen]

Thomas Skogestad <tskogest@jusstud.uio.no> writes:

> The trace is:
> 
> Signaling: (error "Couldn't request group nndraft:drafts: Opened server
>   using directory ~/News/drafts/") signal(error ("Couldn't request group
>   nndraft:drafts: Opened server using directory ~/News/drafts/"))
>   error("Couldn't request group %s: %s" "nndraft:drafts" "Opened server

Are you filling the backtraces?  It's certainly totally unreadable.

Anyway, does `M-g' on the drafts group do anything?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Drafts not working in pgnus 0.85+ (was Re: Unable to read mail in newer pgnusiae)

[Thomas Skogestad]

* Lars Magne Ingebrigtsen

| Anyway, does `M-g' on the drafts group do anything?

Nah.

M-g gir, avhengig av om hvorvidt draft-gruppen er sist i gruppe-bufferet
eller ikke:

No more newsgroups
eller
nndraft:drafts error: Opened server  using directory ~/News/drafts/

Heller ikke i 0.87 går det an å lese draft-gruppen, og da får jeg denne
backtrace:

(Whoops. That was Norwegian. But with all those translation sites on the
net, translating should be a cinch...)

Signaling: (error "Couldn't request group nndraft:drafts: Opened server  using directory ~/News/drafts/")
  signal(error ("Couldn't request group nndraft:drafts: Opened server  using directory ~/News/drafts/"))
  error("Couldn't request group %s: %s" "nndraft:drafts" "Opened server  using directory ~/News/drafts/")
  (progn (when (equal major-mode ...) (kill-buffer ...)) (error "Couldn't request group %s: %s" group (gnus-status-message group)))
  (or (and entry (not ...)) (gnus-activate-group group) (progn (when ... ...) (error "Couldn't request group %s: %s" group ...)))
  (let* ((entry ...) (gnus-summary-ignore-duplicates ...) (info ...) articles fetched-articles cached) (unless (gnus-check-server ...) (error "Couldn't open server")) (or (and entry ...) (gnus-activate-group group) (progn ... ...)) (unless (gnus-request-group group t) (when ... ...) (error "Couldn't request group %s: %s" group ...)) (setq gnus-newsgroup-name group) (setq gnus-newsgroup-unselected nil) (setq gnus-newsgroup-unreads (gnus-list-of-unread-articles group)) (gnus-summary-setup-default-charset) (when info (gnus-adjust-marked-articles info)) (when (gnus-virtual-group-p group) (setq cached gnus-newsgroup-cached)) (setq gnus-newsgroup-unreads (gnus-set-difference ... gnus-newsgroup-dormant)) (setq gnus-newsgroup-processable nil) (gnus-update-read-articles group gnus-newsgroup-unreads) (if (setq articles select-articles) (setq gnus-newsgroup-unselected ...) (setq articles ...)) (cond (... ...) (... nil) (t ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))
 )
  gnus-select-newsgroup("nndraft:drafts" nil nil)
  (and new-group (gnus-select-newsgroup group show-all select-articles))
  (let* ((new-group ...) (quit-config ...) (did-select ...)) (cond (... ... ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...) (t ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-summary-read-group-1("nndraft:drafts" nil t nil nil nil)
  (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil))
  (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil)))
  (setq result (let (...) (or ... ...)))
  (null (setq result (let ... ...)))
  (and group (null (setq result ...)) (eq gnus-auto-select-next (quote quietly)))
  (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (not ...) (setq group ...) (setq group nil)))
  (let (result) (while (and group ... ...) (set-buffer gnus-group-buffer) (when backward ...) (if ... ... ...)) result)
  gnus-summary-read-group("nndraft:drafts" nil t nil nil nil nil)
  (let ((no-display ...) (group ...) number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) (setq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-summary-read-group group (or all ...) no-article nil no-display nil select-articles))
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  (if (gnus-group-topic-p) (let (...) (gnus-topic-fold all)) (gnus-group-select-group all))
  gnus-topic-select-group(nil)
* call-interactively(gnus-topic-select-group)


-- 
thomas.skogestad@jusstud.uio.no
http://quimby.gnus.org/circus/problem.gif
ftp://ftp.splode.com/pub/users/friedman/emacs-lisp/kill-a-lawyer.el

Re: Drafts not working in pgnus 0.85+ (was Re: Unable to read mail in newer pgnusiae)

[Lars Magne Ingebrigtsen]

Thomas Skogestad <tskogest@jusstud.uio.no> writes:

> Signaling: (error "Couldn't request group nndraft:drafts: Opened server  using directory ~/News/drafts/")

I this still a problem in 0.90?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Drafts not working in pgnus 0.85+ (was Re: Unable to read mail in newer pgnusiae)

[Thomas Skogestad]

Anyway: If I byte comile the .el files everything works, but I can't
access the drafts group if I haven't compiled the files.

-- 
thomas.skogestad@jusstud.uio.no
http://quimby.gnus.org/circus/problem.gif
ftp://ftp.splode.com/pub/users/friedman/emacs-lisp/kill-a-lawyer.el