[emacs-wiki-discuss] planner-gnus bug

[Magnus Henoch]

I typed M-x planner-create-task-from-buffer from Gnus, in a newsgroup
message I had written myself.  The "From" address was thus ignored,
and planner-gnus expected to see a "To" address, which it didn't since
it was a newsgroup.  Instead, I got this error:

Debugger entered--Lisp error: (error "Invalid address: nil")
  signal(error ("Invalid address: nil"))
  error("Invalid address: %s" nil)
  mail-extract-address-components(nil)
  (let ((addr ...)) (or (car addr) (cadr addr)))
  planner-get-name-from-address(nil)
  (concat "to " (planner-get-name-from-address (planner-gnus-get-address "To")))
  (if (and planner-ignored-from-addresses from (string-match 
planner-ignored-from-addresses from)) (concat "to " 
(planner-get-name-from-address ...)) (concat "from " 
(planner-get-name-from-address from)))
  (concat "E-Mail " (if (and planner-ignored-from-addresses from ...) (concat 
"to " ...) (concat "from " ...)))
  (planner-make-link (concat "gnus://" gnus-newsgroup-name "/" 
(planner-gnus-get-message-id)) (concat "E-Mail " (if ... ... ...)))
  (let ((from ...)) (planner-make-link (concat "gnus://" gnus-newsgroup-name 
"/" ...) (concat "E-Mail " ...)))
  (save-current-buffer (set-buffer gnus-article-copy) (let (...) 
(planner-make-link ... ...)))
  (with-current-buffer gnus-article-copy (let (...) (planner-make-link ... 
...)))
  (progn (gnus-copy-article-buffer) (with-current-buffer gnus-article-copy (let 
... ...)))
  (if (or (equal major-mode ...) (equal major-mode ...)) (progn 
(gnus-copy-article-buffer) (with-current-buffer gnus-article-copy ...)))
  (when (or (equal major-mode ...) (equal major-mode ...)) 
(gnus-copy-article-buffer) (with-current-buffer gnus-article-copy (let ... 
...)))
  planner-gnus-annotation-from-message()
  (or (planner-gnus-annotation-from-summary) 
(planner-gnus-annotation-from-message))
  planner-gnus-annotation()
  run-hook-with-args-until-success(planner-gnus-annotation)
  (planner-create-task title (when (and date ...) date) 
(run-hook-with-args-until-success (quote planner-annotation-functions)) 
plan-page)
  planner-create-task-from-buffer("..." "2004.11.14" "...")
  call-interactively(planner-create-task-from-buffer)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

I created the task from another message in the thread instead, but it
would be nice if this worked.

Magnus