Lines Matching +defs:not +defs:save
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
153 "*A regular expression saying what files should not be viewed based on name.
230 (defcustom gnus-uu-do-not-unpack-archives nil
271 (defcustom gnus-uu-unmark-articles-not-decoded nil
283 (defcustom gnus-uu-save-in-digest nil
284 "*Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
285 If this variable is nil, gnus-uu will just save everything in a
308 (defcustom gnus-uu-save-separate-articles nil
309 "*Non-nil means that gnus-uu will save articles in separate files."
354 (defvar gnus-uu-default-dir gnus-article-save-directory)
365 (defun gnus-uu-decode-uu-and-save (n dir)
370 (read-file-name "Uudecode and save in dir: "
380 (defun gnus-uu-decode-unshar-and-save (n dir)
385 (read-file-name "Unshar and save in dir: "
390 (defun gnus-uu-decode-save (n file)
395 (if gnus-uu-save-separate-articles
401 (gnus-uu-decode-with-method 'gnus-uu-save-article n nil t))
408 (read-file-name "Unbinhex and save in dir: "
421 (defun gnus-uu-decode-uu-and-save-view (n dir)
425 (read-file-name "Uudecode, view and save in dir: "
429 (gnus-uu-decode-uu-and-save n dir)))
437 (defun gnus-uu-decode-unshar-and-save-view (n dir)
441 (read-file-name "Unshar, view and save in dir: "
445 (gnus-uu-decode-unshar-and-save n dir)))
447 (defun gnus-uu-decode-save-view (n file)
451 (read-file-name (if gnus-uu-save-separate-articles
456 (gnus-uu-decode-save n file)))
462 (read-file-name "Unbinhex, view and save in dir: "
475 (let ((gnus-uu-save-in-digest t)
481 (if (and n (not (numberp n)))
482 (setq message-forward-as-mime (not message-forward-as-mime)
489 (gnus-uu-decode-save n file)
539 (not unmarkp))
557 (save-excursion
587 (save-excursion
614 (gnus-save-hidden-threads
637 (save-excursion
650 (save-excursion
668 (save-excursion
688 (save-excursion
692 (when (and (not (memq (setq number (gnus-data-number (car data)))
713 (defun gnus-uu-decode-postscript-and-save (n dir)
724 (defun gnus-uu-decode-postscript-and-save-view (n dir)
728 (read-file-name "Where do you want to save the file(s)? "
732 (gnus-uu-decode-postscript-and-save n dir)))
737 (defun gnus-uu-decode-with-method (method n &optional save not-insert
740 (when save
741 (setq gnus-uu-default-dir save))
742 ;; Create the directory we save to.
743 (when (and scan cdir save
744 (not (file-exists-p save)))
745 (make-directory save t))
752 (when save
753 (gnus-uu-save-files files save))
754 (when (eq gnus-uu-do-not-unpack-archives nil)
757 (or not-insert (not gnus-insert-pseudo-articles)
758 (gnus-summary-insert-pseudos files save))))
775 (defun gnus-uu-save-files (files dir)
787 (when (or (not (file-exists-p to-file))
799 (defun gnus-uu-save-article (buffer in-state)
801 (gnus-uu-save-separate-articles
802 (save-excursion
812 ((not gnus-uu-save-in-digest)
813 (save-excursion
832 (save-excursion
835 (save-excursion
846 (when (not (eq in-state 'end))
848 (save-excursion
851 (save-excursion
852 (save-restriction
868 (save-excursion
875 (if (not (setq headers gnus-uu-digest-headers))
915 (save-excursion
926 (save-excursion
935 (save-excursion
957 ;; Binhex treatment - not very advanced.
968 (save-excursion
972 (when (not (re-search-forward gnus-uu-binhex-begin-line nil t))
973 (when (not (re-search-forward gnus-uu-binhex-body-line nil t))
1007 (save-excursion
1010 (if (not (re-search-forward gnus-uu-postscript-begin-string nil t))
1014 (if (not (re-search-forward gnus-uu-postscript-end-string nil t))
1055 (when (and (not (string= (or action "") "gnus-uu-archive"))
1070 (save-excursion
1111 (save-excursion
1127 (&optional subject only-unread do-not-translate)
1131 ;; non-nil, article names are not equalized before sorting.
1135 (save-excursion
1143 (and (not (gnus-data-pseudo-p d))
1144 (or (not only-unread)
1159 (not do-not-translate))
1170 (save-excursion
1220 ;; `wrong-type' if the article was not a part of an encoded file
1227 (if (not (and gnus-uu-has-been-grabbed
1228 gnus-uu-unmark-articles-not-decoded))
1255 (not (memq 'error process-state))
1257 (not (memq 'end process-state))))
1274 (save-excursion
1277 (save-excursion
1296 (not gnus-uu-be-dangerous)
1334 (not (memq 'end process-state))
1337 (not gnus-uu-be-dangerous)
1346 gnus-uu-unmark-articles-not-decoded)
1350 (if (and (not has-been-begin)
1351 (not sloppy)
1364 ((not has-been-begin)
1368 ((not (or (memq 'ok process-state)
1372 (when gnus-uu-unmark-articles-not-decoded
1388 (eq gnus-view-pseudos 'not-confirm))))
1419 (save-excursion
1428 (save-excursion
1439 (if (not (looking-at gnus-uu-begin-string))
1451 (while (and (not (eobp))
1452 (not (looking-at gnus-uu-body-line)))
1513 (when (or (not gnus-uu-uudecode-process)
1514 (not (memq (process-status gnus-uu-uudecode-process)
1542 (save-excursion
1545 (if (not (re-search-forward gnus-uu-shar-begin-string nil t))
1547 (save-window-excursion
1548 (save-excursion
1593 (and (not
1596 (not
1602 (while (not (or (eq action-list ()) action))
1619 (when (not action)
1630 (save-excursion
1665 (when (and (not (member file ignore))
1709 (save-excursion
1711 (if (not gnus-uu-correct-stripped-uucode)
1718 (while (not (eobp))
1724 (while (not (eobp))
1728 (when (not found)
1737 (when (not (= length (- (point) beg)))
1745 (if (and (not scan)
1754 (if (not (file-directory-p gnus-uu-tmp-dir))
1756 (when (not (file-writable-p gnus-uu-tmp-dir))
1854 This may not be smart, as no other decoder I have seen are able to
1892 (save-excursion (setq gnus-uu-post-inserted-file-name
1899 (save-excursion
1931 (save-restriction
1972 (when (not (file-exists-p file-path))
1987 (if (save-excursion
2009 (when (not (re-search-forward
2021 (save-excursion
2046 (save-excursion
2050 (save-excursion
2053 (while (not (> i parts))
2078 (save-excursion
2104 (save-excursion
2113 (when (not gnus-uu-post-separate-description)