Function: gnus-dribble-enter

gnus-dribble-enter is an autoloaded and byte-compiled function defined in gnus-start.el.gz.

Signature

(gnus-dribble-enter STRING &optional REGEXP)

Documentation

Enter STRING into the dribble buffer.

If REGEXP is given, lines that match it will be deleted.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-start.el.gz
(defun gnus-dribble-enter (string &optional regexp)
  "Enter STRING into the dribble buffer.
If REGEXP is given, lines that match it will be deleted."
  (when (and (not gnus-dribble-ignore)
             (buffer-live-p gnus-dribble-buffer))
    (with-current-buffer gnus-dribble-buffer
      (when regexp
	(goto-char (point-min))
	(let (end)
	  (while (re-search-forward regexp nil t)
	    (unless (bolp) (forward-line 1))
	    (setq end (point))
	    (goto-char (match-beginning 0))
	    (delete-region (point-at-bol) end))))
      (goto-char (point-max))
      ;; Make sure that each dribble entry is a single line, so that
      ;; the "remove" code above works.
      (insert (string-replace "\n" "\\n" string) "\n")
      (bury-buffer gnus-dribble-buffer)
      (with-current-buffer gnus-group-buffer
	(gnus-group-set-mode-line)))))