Mercurial > emacs

comparison lisp/gnus/gnus-int.el @ 19969:5f1ab3dd344d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Wed, 24 Sep 1997 01:50:24 +0000
parents f5b98be7c142
children 15fc6acbae7a
comparison
equal deleted inserted replaced
19968:88dd57f50303 19969:5f1ab3dd344d
375 (if (stringp group) (gnus-group-real-name group) group) 375 (if (stringp group) (gnus-group-real-name group) group)
376 (cadr method) 376 (cadr method)
377 last))) 377 last)))
378 378
379 (defun gnus-request-replace-article (article group buffer) 379 (defun gnus-request-replace-article (article group buffer)
380 (let ((func (car (gnus-find-method-for-group group)))) 380 (let ((func (car (gnus-group-name-to-method group))))
381 (funcall (intern (format "%s-request-replace-article" func)) 381 (funcall (intern (format "%s-request-replace-article" func))
382 article (gnus-group-real-name group) buffer))) 382 article (gnus-group-real-name group) buffer)))
383 383
384 (defun gnus-request-associate-buffer (group) 384 (defun gnus-request-associate-buffer (group)
385 (let ((method (gnus-find-method-for-group group))) 385 (let ((method (gnus-find-method-for-group group)))