Function: sieve-manage--append-to-log

sieve-manage--append-to-log is a byte-compiled function defined in sieve-manage.el.gz.

Signature

(sieve-manage--append-to-log &rest ARGS)

Documentation

Append ARGS to sieve-manage-log buffer.

ARGS can be a string or a list of strings. The buffer to use for logging is specified via sieve-manage-log. If it is nil, logging is disabled.

When the sieve-manage-log buffer doesn't exist, it gets created (and configured with some initial settings).

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve-manage.el.gz
;; Internal utility functions
(defun sieve-manage--append-to-log (&rest args)
  "Append ARGS to `sieve-manage-log' buffer.

ARGS can be a string or a list of strings.
The buffer to use for logging is specified via `sieve-manage-log'.
If it is nil, logging is disabled.

When the `sieve-manage-log' buffer doesn't exist, it gets created (and
configured with some initial settings)."
  (when sieve-manage-log
    (let* ((existing-log-buffer (get-buffer sieve-manage-log))
           (log-buffer (or existing-log-buffer
                           (get-buffer-create sieve-manage-log))))
      (with-current-buffer log-buffer
        (unless existing-log-buffer
          ;; Do this only once, when creating the log buffer.
          (set-buffer-multibyte nil)
          (buffer-disable-undo))
        (goto-char (point-max))
        (apply #'insert args)))))