Mercurial > hg > xemacs-beta
comparison lisp/gnus/nnkiboze.el @ 18:d95e72db5c07 r19-15b92
Import from CVS: tag r19-15b92
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:43 +0200 |
parents | 0293115a14e9 |
children | 4103f0995bd7 |
comparison
equal
deleted
inserted
replaced
17:4579af9d8826 | 18:d95e72db5c07 |
---|---|
221 (error "No such group: %s" group)) | 221 (error "No such group: %s" group)) |
222 ;; Load the kiboze newsrc file for this group. | 222 ;; Load the kiboze newsrc file for this group. |
223 (when (file-exists-p newsrc-file) | 223 (when (file-exists-p newsrc-file) |
224 (load newsrc-file)) | 224 (load newsrc-file)) |
225 (nnheader-temp-write nov-file | 225 (nnheader-temp-write nov-file |
226 (insert-file-contents nov-file) | 226 (when (file-exists-p nov-file) |
227 (insert-file-contents nov-file)) | |
227 (setq nov-buffer (current-buffer)) | 228 (setq nov-buffer (current-buffer)) |
228 ;; Go through the active hashtb and add new all groups that match the | 229 ;; Go through the active hashtb and add new all groups that match the |
229 ;; kiboze regexp. | 230 ;; kiboze regexp. |
230 (mapatoms | 231 (mapatoms |
231 (lambda (group) | 232 (lambda (group) |