Lines Matching +refs:gnus +refs:header +refs:name
71 (require 'gnus-sum)
149 normally means that the file name does not automatically trigger Org-mode.
576 The first part is a file name - when omitted, archiving happens in the same
577 file. %s will be replaced by the current file name (without directory part).
691 All occurrences of %n in a template will be replaced with the name of the
831 The car of each element is a name of a constant, without the `$' before it.
840 (cons (string :tag "name")
883 "How the path name in file links should be stored.
932 %f name, taken from \"From\" field, address if no name
934 %t first name in \"To\" field, address if no name
951 (when (and user-full-name (not (string= user-full-name "")))
952 (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
954 "Regexp mached against the \"From:\" header of an email or usenet message.
961 A search string will be added to the file name with :: as separator and
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1261 %n user name (taken from `user-full-name')
1270 link type that is created. For example, calling `remember' in emails or gnus
1277 bbdb | %:type %:name %:company
1282 gnus | %:group, for messages also all email fields
1308 (repeat :tag "By file name regexp"
1406 %u will be replaced by the user name.
1407 %U will be replaced by the full user name."
1530 (cons (string :tag "Tag name")
1621 If the file does not specify a category, then file's base name
1630 If the value of the variable is not a list but a single file name, then
2076 as given by the CATEGORY keyword or derived from the file name.
2532 As the value of this option simply gets inserted into the HTML <head> header,
2533 you can \"misuse\" it to add arbitrary text to the header."
2607 "The file name for the iCalendar file covering all agenda files.
2609 The file name should be absolute."
2621 (defcustom org-icalendar-combined-name "OrgMode"
2622 "Calendar name for the combined iCalendar representing all agenda files."
2802 (defface org-level-1 ;; font-lock-function-name-face
2813 (defface org-level-2 ;; font-lock-variable-name-face
2957 (defface org-table ;; font-lock-function-name-face
3007 (defface org-time-grid ;; font-lock-variable-name-face
3308 (defvar wl-summary-buffer-folder-name)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3344 (defvar org-agenda-overriding-header)
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3984 deactivate-mark buffer-file-name buffer-file-truename)
4438 (let ((n 1) (base (buffer-name buffer)) bname)
4448 ;; FIXME: how to name a single frame in XEmacs???
4450 (modify-frame-parameters (selected-frame) (list (cons 'name title)))))
5497 (file-name-nondirectory buffer-file-name))
5524 (buffer-file-name this-buffer))))
5578 (concat "in file: " (abbreviate-file-name file)))))))
5741 (defvar org-table-column-name-regexp nil
5879 (file (read-file-name "Export table to: "))
6342 (name (car (rassoc (list (org-current-line) col)
6347 (fequation (or (assoc name eql) (assoc ref eql)))
6357 (if name (concat " or $" name) "")
7165 (let* ((name (car (rassoc (list (org-current-line)
7172 (ass (or (assoc name stored-list)
7182 (name (car (rassoc (list (org-current-line)
7189 (if name name ref)
7191 (dummy (and (or name refass) (not named)
7194 (name (or name ref))
7215 (if (and name (not named))
7217 (setq stored-list (delq (assoc name stored-list) stored-list)
7294 names name fields fields1 field cnt
7305 (while (setq name (pop names))
7307 (if (string-match "^[a-zA-Z][a-zA-Z0-9]*$" name)
7308 (push (cons name (int-to-string cnt)) org-table-column-names))))
7310 (setq org-table-column-name-regexp
7378 ("!" . "Column name definition line. Reference in formula as $name.")
7379 ("$" . "Parameter definition line name=value. Reference in formula as $name.")
7809 beg end entry eqlnum eqlname eql (cnt 0) eq a name)
7829 ;; Move forward to the first non-header line
7857 (setq name (car eq)
7858 a (assoc name org-table-named-field-locations))
7860 (string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" name)
7863 name
7865 (string-to-number (match-string 1 name)))
7866 (string-to-number (match-string 2 name)))))
7868 (message "Re-applying formula to field: %s" name)
7904 (while (setq start (string-match org-table-column-name-regexp f start))
8077 var name e what match dest)
8081 ((org-at-regexp-p "\\$[a-zA-Z][a-zA-Z0-9]*") 'name)
8091 (if (eq what 'name) (setq var (substring match 1)))
8110 (setq name (substring dest 1))
8113 (setq e (assoc name org-table-named-field-locations))
8121 (t (org-table-goto-column (string-to-number name))))
8147 (error "Column name not found")))
8169 (t (error "Undefined name $%s" var)))))
8448 command name. KEYS are keys that should be checked in for a command
8454 (concat "In tables, run `" (symbol-name fun) "'.\n"
8699 (let* ((name (match-string 1))
8733 (concat "BEGIN RECEIVE ORGTBL +" name "\\([ \t]\\|$\\)") nil t)
8738 (unless (re-search-forward (concat "END RECEIVE ORGTBL +" name) nil t)
8783 name pos)
8785 (setq name (read-string "Table name: "))
8787 (setq txt (replace-match name t t txt)))
8793 (defun org-get-param (params header i sym &optional hsym)
8795 If this is a header line, actually get the value for the symbol with an
8800 (and hsym header (setq val (or (plist-get params hsym) val)))
8836 Same as above, specific for the header lines in the table.
8837 All lines before the first hline are treated as header.
8854 ;; Do we have a header?
8858 ;; Put header
8867 (setq h nil)) ; no longer in header
9039 (let ((name (bbdb-record-name (bbdb-current-record)))
9041 (setq cpltxt (concat "bbdb:" (or name company))
9043 (org-store-link-props :type "bbdb" :name name :company company)))
9047 (file-name-nondirectory Info-current-file)
9049 (setq cpltxt (concat (file-name-nondirectory Info-current-file)
9071 (folder buffer-file-name)
9073 (to (vm-get-header-contents message "To"))
9074 (from (vm-get-header-contents message "From"))
9079 (setq folder (abbreviate-file-name folder))
9104 (setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9109 (let ((from (org-mhe-get-header "From:"))
9110 (to (org-mhe-get-header "To:"))
9111 (message-id (org-mhe-get-header "Message-Id:"))
9112 (subject (org-mhe-get-header "Subject:")))
9122 (rmail-narrow-to-non-pruned-header)
9123 (let ((folder buffer-file-name)
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9155 (from (mail-header-from header))
9156 (message-id (mail-header-id header))
9157 (date (mail-header-date header))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9168 (setq link (org-make-link "gnus:" group
9183 (setq link (concat "file:" (abbreviate-file-name buffer-file-name)
9189 (abbreviate-file-name buffer-file-name))
9191 (org-store-link-props :type "image" :file buffer-file-name))
9196 (abbreviate-file-name
9197 (expand-file-name
9201 ((and buffer-file-name (org-mode-p))
9204 (abbreviate-file-name buffer-file-name)))
9223 (buffer-file-name
9226 (abbreviate-file-name buffer-file-name)))
9373 (defun org-get-header (header)
9374 "Find a header field in the current buffer."
9379 ((eq header 'from)
9386 ((eq header 'message-id)
9389 ((eq header 'subject)
9422 With a \\[universal-argument] prefix, prompts for a file to link to. The file name can be
9454 (setq file (read-file-name "File: "))
9455 (let ((pwd (file-name-as-directory (expand-file-name ".")))
9456 (pwd1 (file-name-as-directory (abbreviate-file-name
9457 (expand-file-name ".")))))
9462 (abbreviate-file-name (expand-file-name file)))))
9466 (expand-file-name file))
9468 "file:" (match-string 1 (expand-file-name file)))))
9494 (when (and buffer-file-name
9500 (if (equal (file-truename buffer-file-name) (file-truename path))
9510 (setq path (abbreviate-file-name (expand-file-name path))))
9512 (setq path (expand-file-name path)))
9514 (setq path (file-relative-name path)))
9518 (file-name-as-directory
9519 (expand-file-name "."))))
9520 (expand-file-name path))
9521 ;; We are linking a file with relative path name.
9522 (setq path (substring (expand-file-name path)
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9713 (org-follow-gnus-link group article)))
9927 ((string-match "(Clone)$" (buffer-name buffer))
9932 (let* ((bn (buffer-name buffer))
10027 (defun org-follow-bbdb-link (name)
10033 ;; Exact match on name
10034 (bbdb-name (concat "\\`" name "\\'") nil)
10036 ;; Exact match on name
10037 (bbdb-company (concat "\\`" name "\\'") nil)
10039 ;; Partial match on name
10040 (bbdb-name name nil)
10043 (bbdb-company name nil)
10046 (bbdb name nil)
10051 (defun org-follow-info-link (name)
10053 (if (or (string-match "\\(.*\\)::?\\(.*\\)" name)
10054 (string-match "\\(.*\\)" name))
10057 (if (match-string 2 name) ; If there isn't a node, choose "Top"
10058 (Info-find-node (match-string 1 name) (match-string 2 name))
10059 (Info-find-node (match-string 1 name) "Top")))
10060 (message (concat "Could not open: " name))))
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10078 (let ((user (or (match-string 1 folder) (user-login-name)))
10129 (rmail (if (string= folder "RMAIL") rmail-file-name folder))
10141 (rmail (if (string= folder "RMAIL") rmail-file-name folder))
10148 "Return the name of the current message real folder, so if you use
10179 "Returns the name of the message folder in a index folder buffer."
10186 "Return the name of the current message folder. Be careful if you
10203 (defun org-mhe-get-header (header)
10204 "Return a header of the message in folder mode. This will create a
10210 (header-field))
10214 (mh-header-display)
10215 (mh-show-header-display))
10217 (setq header-field (mh-get-header-field header))
10221 header-field)))
10235 (mh-visit-folder (mh-normalize-folder-name folder))
10264 (bibtex-autokey-name-case-convert-function 'identity)
10265 (bibtex-autokey-name-separator " & ")
10268 (bibtex-autokey-name-year-separator " ")
10310 First, this expands any special file name abbreviations. Then the
10321 buffer-file-name
10322 (substitute-in-file-name (expand-file-name path))))
10355 ;; Remove quotes around the file name - we'll use shell-quote-argument.
10383 (defun org-expand-file-name (path)
10384 "Replace special path abbreviations and expand the file name."
10385 (expand-file-name path))
10387 (defvar ange-ftp-name-format) ; to silence the XEmacs compiler.
10398 ((and (boundp 'ange-ftp-name-format)
10399 (string-match (car ange-ftp-name-format) file))
10450 (v-n user-full-name)
10462 (abbreviate-file-name (or file org-default-notes-file))
10661 (read-file-name (format "File name [%s]: " default)
10662 (file-name-as-directory org-directory)
10675 (if (string-match (car entry) buffer-file-name)
10681 (defun org-find-dblock (name)
10682 "Find the first dynamic block with name NAME in the buffer.
10687 (setq pos (and (re-search-forward (concat "^#\\+BEGIN:[ \t]+" name "\\>")
10702 PLIST must containe a :name entry which is used as name of the block."
10704 (let ((name (plist-get plist :name)))
10705 (insert "#+BEGIN: " name)
10707 (if (eq (car plist) :name)
10716 the property list including an extra property :name with the block name."
10720 (name (match-string 1))
10721 (params (append (list :name name)
10763 (name (plist-get params :name))
10764 (cmd (intern (concat "org-dblock-write:" name))))
11214 (list (cons "%u" (user-login-name))
11215 (cons "%U" user-full-name)
11434 (abbreviate-file-name buffer-file-name))))
12727 (buffer-name))))
12747 (org-create-dblock (list :name "clocktable"
12953 (setq mode-name "Org-Agenda")
12980 (org-agenda-set-mode-name)
13205 (message "`%s' undone (buffer %s)" cmd (buffer-name rembuf))))
13245 (bfn (buffer-file-name (buffer-base-buffer)))
13261 (let ((header
13270 (while (string-match "\\(^\\| \\|(\\)\\(\\S-\\)\\( \\|=\\)" header start)
13273 '(face bold) header))
13274 header)))
13288 ((functionp type) (symbol-name type))
13499 (tcf (if buffer-file-name (file-truename buffer-file-name)))
13527 (ctf (file-truename buffer-file-name))
13531 (if (not x) (setq x (cons ctf (abbreviate-file-name buffer-file-name))))
13545 (let* ((file (or file buffer-file-name))
13547 (afile (abbreviate-file-name file))
13568 (abbreviate-file-name file))
13579 (defvar org-agenda-buffer-name "*Org Agenda*")
13591 (let* ((abuf (get-buffer-create org-agenda-buffer-name))
13724 (setq file (buffer-file-name buf))
13747 (if buffer-file-name
13748 (file-name-sans-extension
13749 (file-name-nondirectory buffer-file-name))
13751 ((symbolp org-category) (symbol-name org-category))
13775 (entry buffer-file-name)
13819 (insert (calendar-day-name date) " "
13821 (calendar-month-name (extract-calendar-month date)) " "
13990 (calendar-day-name date)
13992 (calendar-month-name (extract-calendar-month date))
14064 (if org-agenda-overriding-header
14065 (insert (org-add-props (copy-sequence org-agenda-overriding-header)
14136 (if org-agenda-overriding-header
14137 (insert (org-add-props (copy-sequence org-agenda-overriding-header)
14164 (defvar org-agenda-overriding-header nil
14165 "When this is set during todo and tags searches, will replace header.")
14187 (org-agenda-overriding-header "List of stuck projects: ")
14206 (with-current-buffer org-agenda-buffer-name
14221 (diary-file-name-prefix-function nil) ; turn this feature off
14227 (list-diary-entries date 1))) ;; Keep this name for now, compatibility
14284 buffer-file-name)
14293 (abbreviate-file-name buffer-file-name))
14337 Use a separate line for each org file to check. Or, if you omit the file name,
14454 (abbreviate-file-name buffer-file-name))))
14511 (abbreviate-file-name buffer-file-name))))
14580 (abbreviate-file-name buffer-file-name))))
14633 (abbreviate-file-name buffer-file-name))))
14690 (abbreviate-file-name buffer-file-name))))
14740 (abbreviate-file-name buffer-file-name))))
14824 category taken from local variable or file name. It will replace the `%c'
14836 (if buffer-file-name
14837 (file-name-sans-extension
14838 (file-name-nondirectory buffer-file-name))
14885 category (if (symbolp category) (symbol-name category) category))
15192 (org-agenda-set-mode-name)
15209 (org-agenda-set-mode-name)
15258 (org-agenda-set-mode-name)
15267 (org-agenda-set-mode-name)
15278 (org-agenda-set-mode-name)
15288 (org-agenda-set-mode-name)
15292 (defun org-agenda-set-mode-name ()
15293 "Set the mode name to indicate all the small mode settings."
15294 (setq mode-name
15371 n (buffer-name buffer))))
15406 (set-buffer (get-buffer org-agenda-buffer-name))
15869 ; (buf (get-file-buffer (substitute-in-file-name diary-file)))
15936 (calendar-location-name
15937 (if arg "the given coordinates" calendar-location-name)))
16160 (concat "ltxpng/" (file-name-sans-extension
16161 (file-name-nondirectory
16162 buffer-file-name)))
16179 (let* ((prefixnodir (file-name-nondirectory prefix))
16180 (absprefix (expand-file-name prefix dir))
16181 (todir (file-name-directory absprefix))
16236 (texfilebase (make-temp-name
16237 (expand-file-name "orgtex" tmpdir)))
16273 ;; Use the requested file name and clean up
16322 (:author . user-full-name)
16844 (concat "ltxpng/" (file-name-sans-extension
16845 (file-name-nondirectory
16977 (filename (concat (file-name-as-directory
16979 (file-name-sans-extension
16980 (file-name-nondirectory buffer-file-name))
16989 (file-name-sans-extension
16990 (file-name-nondirectory buffer-file-name))))
17022 ;; File header
17203 (file buffer-file-name)
17224 (let ((buffer-file-name file)
17265 (buffer-name) (user-full-name) user-mail-address org-export-default-language
17277 (file-name-nondirectory buffer-file-name)
17292 (mapconcat (lambda (x) (concat "lognote" (symbol-name x)))
17365 (org-open-file buffer-file-name))
17405 (org-current-export-file buffer-file-name)
17417 (filename (concat (file-name-as-directory
17419 (file-name-sans-extension
17420 (file-name-nondirectory buffer-file-name))
17422 (current-dir (file-name-directory buffer-file-name))
17429 (file-name-sans-extension
17430 (file-name-nondirectory buffer-file-name))))
17487 ;; File header
17496 <meta name=\"generator\" content=\"Org-mode\"/>
17497 <meta name=\"generated\" content=\"%s %s\"/>
17498 <meta name=\"author\" content=\"%s\"/>
17634 (concat "@<a name=\""
17645 (concat "@<a name=\""
17696 (abs-p (file-name-absolute-p filename))
17707 (setq thefile (if abs-p (expand-file-name filename) filename))
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17757 ;; Close any local lists before inserting a new header line
17852 ;; Close any local lists before inserting a new header line
18263 (insert (format "\n<h%d><a name=\"sec-%d\">%s</a></h%d>\n"
18281 (org-export-icalendar nil buffer-file-name))
18294 The file is stored under the name `org-combined-agenda-icalendar-file'."
18301 file and store it under the name `org-combined-agenda-icalendar-file'."
18310 (if (file-name-absolute-p org-combined-agenda-icalendar-file)
18312 (expand-file-name org-combined-agenda-icalendar-file dir))
18320 (setq ical-file (concat (file-name-as-directory dir)
18321 (file-name-sans-extension
18322 (file-name-nondirectory buffer-file-name))
18327 (file-name-sans-extension
18328 (file-name-nondirectory buffer-file-name))))
18329 (if (symbolp category) (setq category (symbol-name category)))
18333 (org-start-icalendar-file org-icalendar-combined-name))
18425 (defun org-start-icalendar-file (name)
18426 "Start an iCalendar file by inserting the header."
18427 (let ((user user-full-name)
18428 (name (or name "unknown"))
18436 CALSCALE:GREGORIAN\n" name user timezone))))
18469 The XOXO buffer is named *xoxo-<source buffer name>*"
18478 (filename (concat (file-name-as-directory
18480 (file-name-sans-extension
18481 (file-name-nondirectory buffer-file-name))
19635 (defun org-image-file-name-regexp ()
19637 (if (fboundp 'image-file-name-regexp)
19638 (image-file-name-regexp)
19639 (let ((image-file-name-extensions
19644 image-file-name-extensions)
19645 image-file-name-extensions)
19652 (string-match (org-image-file-name-regexp) file)))