(defun message-get-since (sig)
  (let* ((msg (cond ((typep sig 'string)
					 sig)
					((typep sig 'cons)
					 (nth 3 sig))
					(t (error "Unsupported type passed to 'message-get-since'"))))
		 (r (if (not msg)
				0
				(parse-integer (remove-if-not #'digit-char-p msg)
						  :junk-allowed t))))
	(if (not r)
		1
		r)))