From: yamaoka Date: Wed, 12 Jan 2005 08:40:31 +0000 (+0000) Subject: Synch to No Gnus 200501120840. X-Git-Tag: t-gnus-6_17_4-quimby-~596 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c657e802036c760bb3e59477f1410f6ae043309;p=elisp%2Fgnus.git- Synch to No Gnus 200501120840. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47e68ff..6d137f7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-01-12 Katsumi Yamaoka + + * nnrss.el (nnrss-request-delete-group): Delete entries in + nnrss-group-alist as well. + (nnrss-save-server-data): Inser newline. + 2005-01-10 Reiner Steib * gnus.el (gnus-user-agent): Use list of symbols instead of diff --git a/lisp/nnrss.el b/lisp/nnrss.el index 77fdd82..211ca3e 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -1,5 +1,5 @@ ;;; nnrss.el --- interfacing with RSS -;; Copyright (C) 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: RSS @@ -284,6 +284,11 @@ The return value will be `html' or `text'." (deffoo nnrss-request-delete-group (group &optional force server) (setq group (nnrss-decode-group-name group)) (nnrss-possibly-change-group group server) + (let (elem) + ;; There may be two or more entries in `nnrss-group-alist' since + ;; this function didn't delete them formerly. + (while (setq elem (assoc group nnrss-group-alist)) + (setq nnrss-group-alist (delq elem nnrss-group-alist)))) (setq nnrss-server-data (delq (assoc group nnrss-server-data) nnrss-server-data)) (nnrss-save-server-data server) @@ -406,6 +411,7 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s" (insert (format ";; -*- coding: %s; -*-\n" nnrss-file-coding-system)) (gnus-prin1 `(setq nnrss-group-alist ',nnrss-group-alist)) + (insert "\n") (gnus-prin1 `(setq nnrss-server-data ',nnrss-server-data))))) (defun nnrss-read-group-data (group server)