Lines Matching refs:areas
110 (defvar gnus-soup-areas nil)
192 (gnus-soup-save-areas)
196 "Make a SOUP packet from the SOUP areas."
198 (gnus-soup-read-areas)
214 (gnus-soup-save-areas)))
225 (gnus-soup-save-areas)))
344 (defun gnus-soup-save-areas ()
347 (gnus-soup-write-areas)
386 (setq gnus-soup-areas nil)
397 (defun gnus-soup-parse-areas (file)
403 (let (areas)
417 areas)
421 areas))
446 (defun gnus-soup-read-areas ()
447 (or gnus-soup-areas
448 (setq gnus-soup-areas
449 (gnus-soup-parse-areas (concat gnus-soup-directory "AREAS")))))
451 (defun gnus-soup-write-areas ()
454 (when gnus-soup-areas
456 (let ((areas gnus-soup-areas)
458 (while (setq area (pop areas))
474 (defun gnus-soup-write-replies (dir areas)
478 (while (setq area (pop areas))
485 (gnus-soup-read-areas)
486 (let ((areas gnus-soup-areas)
489 (while areas
490 (setq area (car areas)
491 areas (cdr areas))
503 gnus-soup-areas (cons result gnus-soup-areas)))