Mercurial > emacs
comparison lisp/gnus/gnus-int.el @ 19969:5f1ab3dd344d
*** 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))) |