~ubuntu-branches/ubuntu/lucid/mew-beta/lucid

« back to all changes in this revision

Viewing changes to mew-ssl.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2006-10-31 22:07:48 UTC
  • mfrom: (1.1.6 upstream) (2.1.2 etch)
  • Revision ID: james.westby@ubuntu.com-20061031220748-iq1bg528g9nt2l57
Tags: 5.1.52~0.20061031-1
New upstream release. (CVS trunk on 2006-10-31)

Show diffs side-by-side

added added

removed removed

Lines of Context:
205
205
 
206
206
(defun mew-ssl-filter1 (process string)
207
207
  (mew-ssl-debug "SSL/TLS: " string)
208
 
  (let ((pnm (process-name process)))
 
208
  (let* ((pnm (process-name process))
 
209
         (prev-str (mew-ssl-get-string pnm)))
 
210
    (mew-ssl-set-string pnm string)
 
211
    (setq string (concat prev-str string))
209
212
    (cond
210
213
     ((string-match "bound to" string)
211
214
      (mew-ssl-set-status pnm t))