Gcc tip errors

中治です。

http://www.faqs.org/faqs/gnus-faq/section-29.html
にある、Kai GrossjohannとFrancisco Solsonaのコードを拝借して、送信メールの
保存場所を選んでいます。これはかなり便利です。

;;; Kai Grossjohann <[email protected]> adds:
;; select group for Gcc
(defun kai-gnus-outgoing-message-group ()
  (cond ((and gnus-newsgroup-name
	      (stringp gnus-newsgroup-name)
	      (string-match "^nnml" gnus-newsgroup-name))
	 gnus-newsgroup-name)
	(t "nnml:kankyo-u.nakaji")))
;; toggle Gcc header (bind this to a key in message-mode)
(defun message-toggle-gcc ()
  (interactive)
  (save-excursion
    (save-restriction
      (let ((pmin (progn (beginning-of-buffer) (point)))
            (pmax (progn
                    (beginning-of-buffer)
                    (re-search-forward (concat "^" mail-header-separator
                                               "$"))
                    (beginning-of-line)
                    (point))))
        (beginning-of-buffer)
        (narrow-to-region pmin pmax)
        (if (re-search-forward "^gcc: .*" nil t)
            (progn
              (beginning-of-line)
              (kill-line 1))
          (goto-char pmax)
          (insert concat "Gcc: "
		  (kai-gnus-outgoing-message-group)
		  "\n"))))))
;; Francisco Solsona <[email protected]> adds an alternate method
;; of toggling the Gcc: as follows: 
(defun toggle-gcc-header ()
  (when (y-or-n-p "gcc-it?: ")
    (kai-gnus-outgoing-message-group)))
(setq gnus-outgoing-message-group 'toggle-gcc-header)

さて、最近の Emacs 24 と Gnus の組み合わせで、このコードについて以下のエラー
が発生するようになっていることに、今年に入ってから気づきました。

Debugger entered--Lisp error: (wrong-number-of-arguments (lambda nil (when (y-or-n-p "gcc-it?: ") (kai-gnus-outgoing-message-group))) 1)
  toggle-gcc-header("nnml:semi-gnus-ml")
  gnus-inews-insert-gcc()
  run-hooks(message-header-setup-hook)
  message-setup-1(((To . "[email protected]") (Subject . "")) nil nil nil)
  message-setup(((To . "[email protected]") (Subject . "")) nil nil nil nil nil)
  message-mail("[email protected]")
  gnus-post-news(post "nnml:semi-gnus-ml")
  gnus-summary-post-news(nil)
  call-interactively(gnus-summary-post-news nil nil)

EmacsかGnusで、なんか変わったのでしょうか？

;; gnus-outgoing-message-groupがobsoleteだというのも、先週確認したぐらい
;; で…。
-- 
NAKAJI Hiroyuki (中治 弘行)