Function: gnus-Numeric-save-name

gnus-Numeric-save-name is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-Numeric-save-name NEWSGROUP HEADERS &optional LAST-FILE)

Documentation

Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.

If variable gnus-use-long-file-name(var)/gnus-use-long-file-name(fun) is non-nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
  "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num.
Otherwise, it is like ~/News/news/group/num."
  (let ((default
	  (expand-file-name
	   (concat (if (gnus-use-long-file-name 'not-save)
		       (gnus-capitalize-newsgroup newsgroup)
		     (gnus-newsgroup-directory-form newsgroup))
		   "/" (int-to-string (mail-header-number headers)))
	   gnus-article-save-directory)))
    (if (and last-file
	     (string-equal (file-name-directory default)
			   (file-name-directory last-file))
	     (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
	default
      (or last-file default))))