projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* spam-report.el (spam-report-gmane-ham): Renamed from
[gnus]
/
lisp
/
gnus-soup.el
diff --git
a/lisp/gnus-soup.el
b/lisp/gnus-soup.el
index
b5f1368
..
0450b20
100644
(file)
--- a/
lisp/gnus-soup.el
+++ b/
lisp/gnus-soup.el
@@
-1,7
+1,7
@@
;;; gnus-soup.el --- SOUP packet writing support for Gnus
;;; gnus-soup.el --- SOUP packet writing support for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
-;;
Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
, 2003, 2004,
+;;
2005
Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-21,8
+21,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-278,7
+278,7
@@
Note -- this function hasn't been implemented yet."
If NOT-ALL, don't pack ticked articles."
(let ((gnus-expert-user t)
(gnus-large-newsgroup nil)
If NOT-ALL, don't pack ticked articles."
(let ((gnus-expert-user t)
(gnus-large-newsgroup nil)
- (entry (gnus-g
ethash group gnus-newsrc-hashtb
)))
+ (entry (gnus-g
roup-entry group
)))
(when (or (null entry)
(eq (car entry) t)
(and (car entry)
(when (or (null entry)
(eq (car entry) t)
(and (car entry)
@@
-349,17
+349,17
@@
If NOT-ALL, don't pack ticked articles."
(packer (if (< (string-match "%s" packer)
(string-match "%d" packer))
(format packer files
(packer (if (< (string-match "%s" packer)
(string-match "%d" packer))
(format packer files
- (string-to-
int
(gnus-soup-unique-prefix dir)))
+ (string-to-
number
(gnus-soup-unique-prefix dir)))
(format packer
(format packer
- (string-to-
int
(gnus-soup-unique-prefix dir))
+ (string-to-
number
(gnus-soup-unique-prefix dir))
files)))
(dir (expand-file-name dir)))
(gnus-make-directory dir)
(setq gnus-soup-areas nil)
(gnus-message 4 "Packing %s..." packer)
files)))
(dir (expand-file-name dir)))
(gnus-make-directory dir)
(setq gnus-soup-areas nil)
(gnus-message 4 "Packing %s..." packer)
- (if (
zerop
(call-process shell-file-name
-
nil nil nil shell-command-switch
-
(concat "cd " dir " ; " packer)))
+ (if (
eq 0
(call-process shell-file-name
+ nil nil nil shell-command-switch
+ (concat "cd " dir " ; " packer)))
(progn
(call-process shell-file-name nil nil nil shell-command-switch
(concat "cd " dir " ; rm " files))
(progn
(call-process shell-file-name nil nil nil shell-command-switch
(concat "cd " dir " ; rm " files))
@@
-385,7
+385,7
@@
though the two last may be nil if they are missing."
(and (eq (preceding-char) ?\t)
(gnus-soup-field))
(and (eq (preceding-char) ?\t)
(and (eq (preceding-char) ?\t)
(gnus-soup-field))
(and (eq (preceding-char) ?\t)
- (string-to-
int
(gnus-soup-field))))
+ (string-to-
number
(gnus-soup-field))))
areas)
(when (eq (preceding-char) ?\t)
(beginning-of-line 2)))
areas)
(when (eq (preceding-char) ?\t)
(beginning-of-line 2)))
@@
-496,10
+496,10
@@
Return whether the unpacking was successful."
(gnus-make-directory dir)
(gnus-message 4 "Unpacking: %s" (format unpacker packet))
(prog1
(gnus-make-directory dir)
(gnus-message 4 "Unpacking: %s" (format unpacker packet))
(prog1
- (
zerop
(call-process
-
shell-file-name nil nil nil shell-command-switch
-
(format "cd %s ; %s" (expand-file-name dir)
-
(format unpacker packet))))
+ (
eq 0
(call-process
+ shell-file-name nil nil nil shell-command-switch
+ (format "cd %s ; %s" (expand-file-name dir)
+ (format unpacker packet))))
(gnus-message 4 "Unpacking...done")))
(defun gnus-soup-send-packet (packet)
(gnus-message 4 "Unpacking...done")))
(defun gnus-soup-send-packet (packet)
@@
-535,7
+535,7
@@
Return whether the unpacking was successful."
(error "Bad header"))
(forward-line 1)
(setq beg (point)
(error "Bad header"))
(forward-line 1)
(setq beg (point)
- end (+ (point) (string-to-
int
+ end (+ (point) (string-to-
number
(buffer-substring
(match-beginning 1) (match-end 1)))))
(switch-to-buffer tmp-buf)
(buffer-substring
(match-beginning 1) (match-end 1)))))
(switch-to-buffer tmp-buf)
@@
-582,4
+582,5
@@
Return whether the unpacking was successful."
(provide 'gnus-soup)
(provide 'gnus-soup)
+;;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c
;;; gnus-soup.el ends here
;;; gnus-soup.el ends here