1 |
;;; gnus-group.el --- group mode commands for Gnus |
;;; gnus-group.el --- group mode commands for Gnus |
2 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
2703 |
(make-directory score-dir)) |
(make-directory score-dir)) |
2704 |
(with-temp-file score-file |
(with-temp-file score-file |
2705 |
(let (emacs-lisp-mode-hook) |
(let (emacs-lisp-mode-hook) |
2706 |
(pp scores (current-buffer)))))) |
(gnus-pp scores))))) |
2707 |
|
|
2708 |
(defun gnus-group-add-to-virtual (n vgroup) |
(defun gnus-group-add-to-virtual (n vgroup) |
2709 |
"Add the current group to a virtual group." |
"Add the current group to a virtual group." |