diff options
| author | Lars Magne Ingebrigtsen | 1996-07-02 23:37:45 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 1996-07-02 23:37:45 +0000 |
| commit | ccbf998d92ca3fcaa344cad6a07d6665891eaf30 (patch) | |
| tree | a951b46e75c89a4661d373d87336faccd67d86b3 | |
| parent | b443ba9a00f0af4714c352ec2881f084c2d2fa4e (diff) | |
| download | emacs-ccbf998d92ca3fcaa344cad6a07d6665891eaf30.tar.gz emacs-ccbf998d92ca3fcaa344cad6a07d6665891eaf30.zip | |
* gnus-cache.el (gnus-cache-possibly-alter-active): Check for
gnus-cache-active-hashtb before using it.
| -rw-r--r-- | lisp/gnus-cache.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index d44c4949d15..24b38c64667 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el | |||
| @@ -236,13 +236,14 @@ variable to \"^nnml\".") | |||
| 236 | 236 | ||
| 237 | (defun gnus-cache-possibly-alter-active (group active) | 237 | (defun gnus-cache-possibly-alter-active (group active) |
| 238 | "Alter the ACTIVE info for GROUP to reflect the articles in the cache." | 238 | "Alter the ACTIVE info for GROUP to reflect the articles in the cache." |
| 239 | (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb))) | 239 | (when gnus-cache-active-hashtb |
| 240 | (and cache-active | 240 | (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb))) |
| 241 | (< (car cache-active) (car active)) | 241 | (and cache-active |
| 242 | (setcar active (car cache-active))) | 242 | (< (car cache-active) (car active)) |
| 243 | (and cache-active | 243 | (setcar active (car cache-active))) |
| 244 | (> (cdr cache-active) (cdr active)) | 244 | (and cache-active |
| 245 | (setcdr active (cdr cache-active))))) | 245 | (> (cdr cache-active) (cdr active)) |
| 246 | (setcdr active (cdr cache-active)))))) | ||
| 246 | 247 | ||
| 247 | (defun gnus-cache-retrieve-headers (articles group &optional fetch-old) | 248 | (defun gnus-cache-retrieve-headers (articles group &optional fetch-old) |
| 248 | "Retrieve the headers for ARTICLES in GROUP." | 249 | "Retrieve the headers for ARTICLES in GROUP." |