-;;;###autoload
-(defun gnus-registry-install-nnregistry ()
- "Install the nnregistry refer method in `gnus-refer-article-method'."
- (interactive)
- (cond ((eq 'nnregistry gnus-refer-article-method))
- ((null gnus-refer-article-method)
- (setq gnus-refer-article-method 'nnregistry))
- ((consp gnus-refer-article-method)
- (unless (memq 'nnregistry gnus-refer-article-method)
- (setq gnus-refer-article-method
- (append gnus-refer-article-method '(nnregistry)))))
- (t
- (setq gnus-refer-article-method
- (list gnus-refer-article-method 'nnregistry)))))
-