Function: gnus-bookmark-write-file

gnus-bookmark-write-file is an interactive and byte-compiled function defined in gnus-bookmark.el.gz.

Signature

(gnus-bookmark-write-file)

Documentation

Write currently defined Gnus bookmarks into gnus-bookmark-default-file.

Key Bindings

Aliases

gnus-bookmark-bmenu-save

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-bookmark.el.gz
(defun gnus-bookmark-write-file ()
  "Write currently defined Gnus bookmarks into `gnus-bookmark-default-file'."
  (interactive)
  (save-excursion
    (save-window-excursion
      ;; Avoid warnings?
      ;; (message "Saving Gnus bookmarks to file %s..." gnus-bookmark-default-file)
      (set-buffer (gnus-get-buffer-create  " *Gnus bookmarks*"))
      (erase-buffer)
      (gnus-bookmark-insert-file-format-version-stamp)
      (pp gnus-bookmark-alist (current-buffer))
      (condition-case nil
	  (let ((coding-system-for-write gnus-bookmark-file-coding-system))
	    (write-region (point-min) (point-max)
			  gnus-bookmark-default-file))
	(file-error (message "Can't write %s"
			     gnus-bookmark-default-file)))
      (kill-buffer (current-buffer))
      (message
       "Saving Gnus bookmarks to file %s...done"
       gnus-bookmark-default-file))))