[elpa] 26/119: thread proc through some functions

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit 1fd8b03177a50537849266a84b7914a2f2a9049b
Author: Eric Schulte <address@hidden>
Date:   Thu Dec 19 00:20:29 2013 -0700

    thread proc through some functions
---
 emacs-web-server.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/emacs-web-server.el b/emacs-web-server.el
index d24da78..dc8188b 100644
--- a/emacs-web-server.el
+++ b/emacs-web-server.el
@@ -101,7 +101,7 @@ function.
   (mapc #'delete-process (append (mapcar #'car (clients server))
                                  (list (process server)))))
 
-(defun ews-parse (string)
+(defun ews-parse (proc string)
   (cl-flet ((to-keyword (s) (intern (concat ":" (upcase (match-string 1 s))))))
     (cond
      ((string-match
@@ -133,14 +133,14 @@ function.
       (push (cons proc (make-instance 'ews-client)) clients))
     (let ((c (cdr (assoc proc clients))))
       (when (not (eq (catch 'close-connection
-                       (if (ews-do-filter c string)
+                       (if (ews-do-filter proc c string)
                            (ews-call-handler proc (cdr (headers c)) handler)
                          :keep-open))
                      :keep-open))
         (setq clients (assq-delete-all proc clients))
         (delete-process proc)))))
 
-(defun ews-do-filter (client string)
+(defun ews-do-filter (proc client string)
   "Return non-nil when finished and the client may be deleted."
   (with-slots (leftover boundary headers) client
     (let ((pending (concat leftover string))
@@ -179,7 +179,7 @@ function.
                 (throw 'finished-parsing-headers t)))
              ;; Standard header parsing.
              (:otherwise
-              (let ((this (ews-parse (substring pending last-index index))))
+              (let ((this (ews-parse proc (substring pending last-index 
index))))
                 (if (and (caar this) (eql (caar this) :CONTENT-TYPE))
                     (cl-destructuring-bind (type &rest data)
                         (mail-header-parse-content-type (cdar this))