Lines Matching +defs:gnus +defs:summary +defs:save +defs:article
71 (require 'gnus-sum)
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
3157 (save-excursion
3158 (save-restriction
3307 (defvar wl-summary-buffer-elmo-folder)
3308 (defvar wl-summary-buffer-folder-name)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3323 (defvar remember-save-after-remembering)
3586 (save-excursion
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3853 (save-excursion
3885 (save-excursion
3890 (save-excursion
4085 (save-excursion
4091 ((save-excursion (beginning-of-line 1) (looking-at outline-regexp))
4096 (save-excursion
4098 (save-excursion
4141 (save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
4156 (t (save-excursion
4180 (hide-sublevels (save-excursion
4192 (save-excursion
4223 (save-excursion (org-end-of-subtree t) (point))))
4299 (save-excursion
4300 (save-window-excursion
4393 (save-excursion
4430 (save-excursion (org-mode) (turn-on-font-lock)))
4467 (let* ((head (save-excursion
4477 (save-excursion (backward-char 1) (not (org-invisible-p))))
4479 ((and (bolp) (save-excursion
4497 (save-excursion
4513 (save-excursion
4521 (save-excursion
4531 (save-excursion
4542 (save-excursion
4551 (when (save-excursion
4575 (let* ((level (save-match-data (funcall outline-level)))
4589 (let* ((level (save-match-data (funcall outline-level)))
4601 (save-excursion
4612 (save-excursion
4628 (save-excursion
4629 (let ((end (save-excursion (outline-next-heading)
4635 (unless (save-excursion (re-search-forward prohibit end t))
4650 (save-excursion
4672 (save-excursion
4703 (save-match-data
4704 (save-excursion (outline-end-of-heading)
4754 (save-match-data
4755 (save-excursion (outline-end-of-heading)
4804 (previous-level (save-excursion
4812 (next-level (save-excursion
4850 (save-restriction
4888 (save-excursion
4966 (save-excursion
5030 (save-excursion
5043 (save-excursion
5054 (when (save-excursion
5063 (eow (save-excursion (beginning-of-line 1) (looking-at "[ \t]*")
5089 (save-excursion
5103 (setq beg (point) end (save-excursion (outline-next-heading) (point))))
5105 (save-excursion
5109 (save-excursion
5132 (save-excursion
5187 (save-excursion
5222 (limit (save-excursion (org-back-to-heading)
5248 (limit (save-excursion (outline-next-heading) (point)))
5249 (ind (save-excursion
5316 (save-excursion
5352 (save-excursion
5438 (save-excursion
5490 (save-excursion
5510 (save-excursion
5570 (if (not (eq this-buffer buffer)) (save-buffer))))
5604 (save-excursion
5608 end (save-excursion (org-end-of-subtree t) (point)))
5627 (save-excursion
5646 (save-excursion
5658 (save-excursion
5691 (save-excursion
5905 (save-buffer))
6113 (save-excursion
6126 (save-excursion
6228 (save-excursion (skip-chars-backward " \t") (bolp)))
6265 (save-excursion
6338 (save-excursion
6369 (save-excursion
6382 (save-excursion
6409 (save-excursion (end-of-line 1) (insert " | ")))
6418 (save-excursion
6427 (save-excursion
6460 (save-excursion
6594 (hline1p (save-excursion (beginning-of-line 1)
6902 (cline (save-excursion (goto-char beg) (org-current-line)))
6903 (ccol (save-excursion (goto-char beg) (org-table-current-column)))
6949 (let ((b (save-excursion (skip-chars-backward "^|") (point)))
6950 (e (save-excursion (skip-chars-forward "^|\r\n") (point))))
7070 (save-excursion
7071 (save-restriction
7078 (save-excursion (funcall function)))
7100 (save-excursion
7229 (save-excursion
7249 (save-excursion
7269 (save-excursion
7292 (save-excursion
7323 (save-excursion
7349 (save-excursion
7400 (save-excursion
7414 (save-excursion
7423 (save-excursion
7449 (save-excursion (beginning-of-line 1)
7581 (save-match-data
7590 (save-match-data
7607 (save-match-data
7659 (save-excursion
7912 (if (setq a (save-match-data
7980 (save-excursion
8046 (save-restriction
8096 (save-excursion
8129 (save-excursion
8184 (unless (save-excursion
8188 (p1 (save-excursion (re-search-forward re nil 'move)))
8189 (p2 (save-excursion (re-search-backward re nil 'move))))
8292 (save-excursion
8609 (save-excursion
8624 (save-excursion
8692 (save-excursion
8730 (save-excursion
8763 (commented (save-excursion (beginning-of-line 1)
8769 (save-excursion
9064 ((or (eq major-mode 'vm-summary-mode)
9067 (vm-follow-summary-cursor)
9068 (save-excursion
9086 ((eq major-mode 'wl-summary-mode)
9087 (let* ((msgnum (wl-summary-message-number))
9088 (message-id (elmo-message-field wl-summary-buffer-elmo-folder
9093 wl-summary-buffer-elmo-folder msgnum)
9095 msgnum (wl-summary-buffer-msgdb))))
9096 (from (wl-summary-line-from))
9099 (wl-summary-line-subject))))
9104 (setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9120 (save-excursion
9121 (save-restriction
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))
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
9169 "#" (number-to-string article))))))
9296 (save-match-data (string-match org-from-is-user-regexp from)))
9375 (save-excursion
9499 (save-match-data
9516 (save-match-data
9613 (save-excursion
9634 (save-excursion
9639 (save-excursion
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
9840 ((save-excursion
9915 (save-match-data
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))
10067 (cond ((and group article)
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))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10118 (wl-summary-goto-folder-subr folder 'no-sync t nil t nil nil)
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10121 (wl-summary-redisplay)))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10127 (save-excursion
10128 (save-window-excursion
10131 (save-restriction
10136 (or article "")))
10150 (save-excursion
10165 (save-window-excursion
10180 (save-excursion
10188 (save-excursion
10197 (save-excursion
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
10276 (save-excursion
10294 (save-excursion (set-buffer b) (goto-char p)
10359 (save-window-excursion
10468 (save-match-data
10600 (save-excursion (and (goto-char (point-min))
10604 (save-excursion
10605 (save-restriction
10626 (save-restriction
10633 (save-restriction
10653 (when remember-save-after-remembering
10654 (save-buffer)
10685 (save-excursion
10735 (save-excursion
10804 (beg1 (save-excursion
10807 (beg (save-excursion
10844 (save-excursion
10894 (save-excursion
10932 (save-excursion
11004 (save-excursion (beginning-of-line 1)
11013 (save-match-data
11014 (save-excursion
11017 org-repeat-re (save-excursion (outline-next-heading) (point)) t)
11046 re (save-excursion (outline-next-heading) (point)) t)
11107 (save-excursion
11108 (save-restriction
11166 (save-excursion
11224 (save-excursion
11226 (save-excursion
11257 (save-excursion
11265 (save-match-data (funcall callback)))
11296 (save-excursion
11302 (save-excursion
11366 (save-excursion
11407 (save-match-data
11439 (save-excursion
11611 (save-excursion
11621 (save-excursion
11697 (save-excursion
11736 (save-excursion
11752 (save-window-excursion
11891 (save-excursion
11900 (save-excursion
12002 (if (save-excursion
12024 (save-excursion
12025 (save-window-excursion
12178 (let* ((t1 (save-match-data
12202 (save-match-data
12209 t1 (save-match-data
12285 (save-excursion
12414 (save-excursion
12467 (save-excursion
12468 (save-match-data
12509 (save-excursion
12537 (save-excursion
12560 (save-excursion
12587 (save-excursion
12612 (save-excursion
12649 (save-excursion
12710 (> (save-excursion (outline-next-heading) (point))
12724 If yes, offer to stop it and to save the buffer with the changes."
12730 (save-buffer))))
12755 (save-excursion
12843 (insert-before-markers "Clock summary at ["
12862 (save-excursion
12896 (save-excursion
12914 (save-excursion (outline-next-heading) (setq next (point)))
13026 (define-key org-agenda-mode-map "s" 'org-save-all-org-buffers)
13124 ["Save all Org-mode Buffers" org-save-all-org-buffers t]
13256 (save-window-excursion
13317 (save-excursion
13460 (org-add-hook 'after-save-hook
13469 "Edit list and finish with \\[save-buffer]")))
13473 "Set new value for the agenda file list and save it correcly."
13481 (customize-save-variable 'org-agenda-files org-agenda-files))))
13615 (save-excursion
13631 (save-excursion
13632 (save-restriction
13638 (save-excursion
13675 (setq to (save-excursion
13676 (save-match-data
13728 (with-current-buffer buf (save-buffer)))
13735 (save-excursion
13851 (save-excursion
14128 (save-excursion
14129 (save-restriction
14172 (save-match-data
14173 (let ((end (save-excursion (org-end-of-subtree t)))
14175 (save-excursion
14225 (save-excursion
14226 (save-window-excursion
14391 (save-excursion
14392 (save-restriction
14423 (save-excursion
14430 (save-excursion
14466 (save-match-data
14524 (and (save-match-data (org-at-date-range-p)) (throw :skip nil))
14542 (save-excursion
14605 (save-excursion
14651 (save-excursion
14707 (save-excursion
14757 (save-excursion
14831 (save-match-data
14980 (save-match-data
15013 (save-excursion
15112 (defun org-save-all-org-buffers ()
15116 (save-some-buffers t 'org-mode-p)
15340 (save-excursion
15356 (save-excursion
15388 (save-excursion
15400 (save-excursion
15407 (save-excursion
15424 (save-excursion
15444 (save-excursion
15497 (save-excursion
15524 (save-excursion
15530 (save-excursion
15534 (save-excursion
15547 (save-excursion
15588 (save-excursion
15627 (save-excursion
15643 (save-excursion
15644 (save-restriction
15647 (save-match-data
15677 (save-excursion
15702 (save-excursion
15740 (save-excursion
15818 (save-excursion
16090 ((save-excursion
16137 (save-excursion
16138 (save-restriction
16142 (not (save-excursion
16248 (insert "\\documentclass{article}
16334 (save-excursion
16449 (save-window-excursion
16772 (save-excursion
16870 (concat "[[" (save-match-data
16893 (save-match-data
16940 (save-match-data
17100 (save-buffer)
17207 (save-excursion
17331 (save-excursion
17348 (save-excursion
17449 (save-buffer-coding-system coding-system)
17527 txt (save-match-data
17669 (save-match-data
17698 (save-match-data
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17734 (save-match-data (org-link-unescape path))
17888 (save-buffer)
18219 ; (when (save-excursion
18241 (save-match-data
18302 (save-excursion
18339 (save-buffer)
18340 (run-hooks 'org-after-save-iCalendar-file-hook)))))
18343 (defvar org-after-save-iCalendar-file-hook nil
18359 (save-excursion
18495 (save-excursion
18541 (save-buffer)
19028 (re-search-forward "|" (save-excursion (end-of-line 2) (point)))
19040 ((save-excursion (beginning-of-line 1) (looking-at "#\\+\\([A-Z]+\\)"))
19044 (save-excursion
19318 (save-excursion
19352 ["Save" Custom-save t]
19413 (save-excursion (org-end-of-item) (point)))
19472 (save-excursion
19561 (save-excursion
19651 (save-match-data
19683 (save-excursion
19727 (save-excursion
19729 (save-excursion
19735 (save-excursion
19741 (save-excursion
19747 (save-excursion
19751 (save-excursion (outline-end-of-heading) (point))
19779 (save-excursion
19787 (save-excursion
19791 (save-excursion
19843 (save-excursion (goto-char (max (point-min) (1- (point))))