Lines Matching defs:header
148 (defun gnus-diary-header-schedule (headers)
162 (defun gnus-user-format-function-d (header)
166 (let* ((extras (mail-header-extra header))
167 (sched (gnus-diary-header-schedule extras))
199 (defun gnus-user-format-function-D (header)
201 (let* ((extras (mail-header-extra header))
202 (sched (gnus-diary-header-schedule extras))
211 (e1 (mail-header-extra h1))
212 (e2 (mail-header-extra h2))
213 (s1 (gnus-diary-header-schedule e1))
214 (s2 (gnus-diary-header-schedule e2))
218 (< (mail-header-number h1) (mail-header-number h2))
223 (gnus-article-sort-by-schedule (gnus-thread-header h1)
224 (gnus-thread-header h2)))
257 (let ((header (format "X-Diary-%s" (car elt))))
258 (unless (assoc header posting-style)
260 `((,header "*")))))
300 (defvar gnus-diary-header-value-history nil
301 ;; History variable for header value prompting
305 "Narrow the current buffer to the header part.
317 (defun gnus-diary-add-header (str)
318 "Add a header to the current buffer.
321 (message-add-header str))
341 (let ((header (concat "X-Diary-" (car head)))
344 ;; First, try to find the header, and checks for validity:
347 (when (re-search-forward (concat "^" header ":") nil t)
358 ;; #### NOTE: this (along with the `gnus-diary-add-header'
360 ;; not to blindly remove an already present header and reinsert
370 header ": ")))
375 gnus-diary-header-value-history)
377 gnus-diary-header-value-history))))
385 (gnus-diary-add-header (concat header ": " value))