Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents e04119814345
children
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
941 (push group new-newsgroups) 941 (push group new-newsgroups)
942 (funcall gnus-subscribe-newsgroup-method group))))))) 942 (funcall gnus-subscribe-newsgroup-method group)))))))
943 gnus-active-hashtb) 943 gnus-active-hashtb)
944 (when new-newsgroups 944 (when new-newsgroups
945 (gnus-subscribe-hierarchical-interactive new-newsgroups)) 945 (gnus-subscribe-hierarchical-interactive new-newsgroups))
946 ;; Suggested by Per Abrahamsen <amanda@iesd.auc.dk>.
947 (if (> groups 0) 946 (if (> groups 0)
948 (gnus-message 5 "%d new newsgroup%s arrived." 947 (gnus-message 5 "%d new newsgroup%s arrived."
949 groups (if (> groups 1) "s have" " has")) 948 groups (if (> groups 1) "s have" " has"))
950 (gnus-message 5 "No new newsgroups."))))))) 949 (gnus-message 5 "No new newsgroups.")))))))
951 950
2302 (defun gnus-slave-save-newsrc () 2301 (defun gnus-slave-save-newsrc ()
2303 (save-excursion 2302 (save-excursion
2304 (set-buffer gnus-dribble-buffer) 2303 (set-buffer gnus-dribble-buffer)
2305 (let ((slave-name 2304 (let ((slave-name
2306 (make-temp-name (concat gnus-current-startup-file "-slave-")))) 2305 (make-temp-name (concat gnus-current-startup-file "-slave-"))))
2307 (gnus-write-buffer slave-name)))) 2306 (gnus-write-buffer slave-name)
2307 (set-file-modes slave-name (file-modes gnus-current-startup-file)))))
2308 2308
2309 (defun gnus-master-read-slave-newsrc () 2309 (defun gnus-master-read-slave-newsrc ()
2310 (let ((slave-files 2310 (let ((slave-files
2311 (directory-files 2311 (directory-files
2312 (file-name-directory gnus-current-startup-file) 2312 (file-name-directory gnus-current-startup-file)