Function: gnus-registry-get-or-make-entry

gnus-registry-get-or-make-entry is a byte-compiled function defined in gnus-registry.el.gz.

Signature

(gnus-registry-get-or-make-entry ID &optional NO-CREATE)

Documentation

Return registry entry for ID.

If entry is not found, create a new one, unless NO-CREATE is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-registry.el.gz
(defun gnus-registry-get-or-make-entry (id &optional no-create)
  "Return registry entry for ID.
If entry is not found, create a new one, unless NO-CREATE is
non-nil."
  (let* ((db gnus-registry-db)
         ;; safe if not found
         (entries (registry-lookup db (list id))))

    (unless (or entries no-create)
      (gnus-registry-insert db id (list (list 'creation-time (current-time))
                                        '(group) '(sender) '(subject)))
      (setq entries (registry-lookup db (list id))))

    (nth 1 (assoc id entries))))