sgnus-0.29, gnus.el, gnus-summary-find-matching

sgnus-0.29, gnus.el, gnus-summary-find-matching

[Kai Grossjohann]

Once again, a typo.  In the above mentioned function, I replaced the
following line:

    (or (fboundp func) (error "%s is not a valid header" header))

with

    (or (fboundp (intern (concat "mail-header-" header)))
        (error "%s is not a valid header" header))

See below for a diff which includes a different patch as well.

regards,
        kai
--
Life is hard and then you die.

diff -bwc gnus.el-orig gnus.el-patched:

*** /usr/local/ls6/src/emacs-lisp/sgnus-0.29/lisp/gnus.el	Thu Jan 18 03:06:30 1996
--- /usr/local/ls6/share/emacs/site-lisp/sgnus-0.29/gnus.el	Fri Jan 19 15:35:31 1996
***************
*** 10592,10598 ****
  	(func `(lambda (h) (,(intern (concat "mail-header-" header)) h)))
  	(case-fold-search (not not-case-fold))
  	articles d)
!     (or (fboundp func) (error "%s is not a valid header" header))
      (while data
        (setq d (car data))
        (and (or (not unread)		; We want all articles...
--- 10592,10599 ----
  	(func `(lambda (h) (,(intern (concat "mail-header-" header)) h)))
  	(case-fold-search (not not-case-fold))
  	articles d)
! ;    (or (fboundp func) (error "%s is not a valid header" header))
!     (or (fboundp (intern (concat "mail-header-" header))) (error "%s is not a valid header" header))
      (while data
        (setq d (car data))
        (and (or (not unread)		; We want all articles...
***************
*** 10892,10898 ****
  				       (intern (format "gnus-newsgroup-%s"
  						       (caar marks)))))
  		    (gnus-add-marked-articles
! 		     (gnus-info-group info) (cadr marks)
  		     (list to-article) info))
  		  (setq marks (cdr marks)))))
  
--- 10893,10899 ----
  				       (intern (format "gnus-newsgroup-%s"
  						       (caar marks)))))
  		    (gnus-add-marked-articles
! 		     (gnus-info-group info) (caar marks) ; (cadr marks)
  		     (list to-article) info))
  		  (setq marks (cdr marks)))))